NAVAL POSTGRADUATE SCHOOL 

Monterey, California 




THESIS 

AN INTERACTIVE COMPUTER AIDED DESIGN 
AND ANALYSIS PACKAGE 

by 

John Curtis Bordeaux 

September 1986 

(- • ' 

Thesis Advisor: Larry W. Abbott 



Approved for public release; distribution is unlimited. 



SECURITY CLASSIFICATION 6fThI$ PAGE 



REPORT DOCUMENTATION PAGE 



la REPORT SECURITY CLASSIFICATION 

UNCLASSIFIED 



lb. RESTRICTIVE MARKINGS 



2a SECURITY CLASSIFICATION AUTHORITY 



2b. DECLASSIFICATION /DOWNGRADING SCHEDULE 



3 DISTRIBUTION /AVAILABILITY OF REPORT Approved for 

public release; distribution is 
unlimited 



4 PERFORMING ORGANIZATION REPORT NUMBER(S) 



5 MONITORING ORGANIZATION REPORT NUMBER(S) 



6a. NAME OF PERFORMING ORGANIZATION 

Naval Postgraduate School 



6b OFFICE SYMBOL 
(If applicable) 

62 



7a. NAME OF MONITORING ORGANIZATION 

Naval Postgraduate School 



6c ADDRESS (City, State , and HP Code) 

Monterey, CA 93943-5000 



7b ADDRESS (City, State , and ZIP Code) 

Monterey, CA 93943-5000 



8a NAME OF FUNDING / SPONSORING 
ORGANIZATION 



8b OFFICE SYMBOL 
(If applicable) 



9 PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 



8c ADDRESS (City, State, and ZIP Code) 



10 SOURCE OF FUNDING NUMBERS 



PROGRAM 


PROJECT 


TASK 


WORK UNIT 


ELEMENT NO 


NO 


NO 


ACCESSION NO 



11 TITLE (Include Security Classification) 

AN INTERACTIVE COMPUTER AIDED DESIGN AND ANALYSIS PACKAGE 



12 PERSONAL AUTHOR(S) 

John Curtis Bordeaux 



Via TYHt OK REPORT 

Master's Thesis 



13b TIME COVERED 
FROM TO 



14 DATE OF REPORT (Year, Month, Day) 

86 September 26 



15 PAGE COUNT 

172 



16 SUPPLEMENTARY NOTATION 



17 



COSATI CODES 



field 


GROUP 


SUBGROUP 















18 SUBJECT TERMS ( Continue on reverse if necessary and identify by block number) 

SURE MARKOV 



’9 ABSTRACT ( Continue on reverse if necessary and identify by block number) 

In this thesis a NASA developed Markov reliability analysis tool will be 
ported to a relatively inexpensive IBM-AT environment. Currently the 
Markov analysis took, called SURE, is not widely utilized because it 
runs in an expensive environment consisting of a VAX, megatex display, 
and template graphics software. Although substantial savings can be made 
by running SURE without the expensive graphics, the user friendliness of 
the tool is dramatically degraded by the lack of graphics. Accordingly 
a C program using the inexpensive GEM graphics environment has been 
written. The program is user friendly; it uses menus for option selections 
and prompts for data entry. 



20 DISTRIBUTION /AVAILABILITY OF ABSTRACT 

CjtUNCLASSlFIEO/UNLIMlTEO □ SAME AS RPT □ OTIC USERS 



21 



ABSTRACT SECURITY CLASSIFICATION 

UNCLASSIFIED 



22a NAME OF RESPONSIBLE INDIVIDUAL 

Prof Larry Abbott 



22b TELEPHONE (Include Area Code) 

(408)646-2379 



22 c OFFICE SYMBOL 

62At 



DD FORM 1473, 84 MAR 



83 APR edition may be used until exhausted 
All other editions are obsolete 



SECURITY CLASSIFICATION OF THIS PAGE 



1 



Approved for public release; distribution is unlimited. 
An Interactive Computer Aided Design and Analysis Package 

by 



John C. Bordeaux 

Major, United States Marine Corps 
B.S., Old Dominion University, 1975 

Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN ELECTRICAL ENGINEERING 

from the 



NAVAL POSTGRADUATE SCHOOL 
September 1986 

a a 0. 



ABSTRACT 



This thesis describes the porting of a NASA developed 
Markov reliability analysis tool to a relatively inexpensive 
IBM-AT. Currently the Markov analysis tool, called SURE, is 
not widely utilized because it runs in an expensive 
environment consisting of a VAX, megatex display, and 
template graphics software. Although substantial savings can 
be made by running SURE without the expensive graphics, the 
user friendliness of the tool is dramatically degraded by 
the lack of graphics. Accordingly a C program using the 
inexpensive GEM graphics environment has been written. The 
program is user friendly; it uses menus for option 
selections and prompts for data entry. 
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I. INTRODUCTION 



A NASA developed program for computing the death state 
probabilities for reconf igurable fault tolerant computers 
forms the basis for this Thesis. Portions of the Semi -Markov 
Unreliability Range Evaluator (SURE) [Ref. 1] are ported to 
an IBM-AT environment. The original version of SURE [Ref. 2] 
used theorems developed in reference 3 which enabled the 
computation of the death state probabilities of semi-Markov 
models. The latest version of NASA’s SURE uses a generalized 
method developed by Lee [Ref. 4] and White [Ref. 5] for 
calculating reliability. 

In this Thesis, the essential details of NASA’s SURE 
program will be utilised to develop a relatively inexpensive 
version of the program, for the IBM-AT environment. The SURE 
derivative developed in this thesis uses only White’s method 
for analysis of semi-Markov models. White’s method uses 
simple parameters of a model such as means and variance of 
the transitions to bound the probability of entering a death 
state of a semi-Markov model. The advantage of using NASA’s 
SURE technique is that the calculated upper and lower bounds 
of system reliability are algebraic in form, computationally 
efficient, and normally bound the reliability of the semi- 
Markov model within 5 percent. 
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A. RELIABILITY MODELING 



In this thesis a graphical method for representing 
ultrareliable systems will be presented. The current state 
of the art in electronic component manufacture, produces 
parts, that used singularly in the production of circuit 
assemblies do not obtain the reliability standards required 
for ultrareliable computer systems. Parallel redundancy has 
been demonstrated to achieve ultrareliable computer systems. 
Alternatives to massive redundancy, such as hybrid 
redundancy, use spares and reconfiguration to achieve higher 
reliability and as a result exhibit both fast and slow 
transitions. A semi-Markov model representing a hybrid 
redundancy system composed of three processors and a single 
spare is shown in figure 1.1. 




d(t ) 




d(t) 




Figure 1.1 Model of a Triad with one Spare 
From: reference 1, page 2. 
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All hybrid models require a combination of slow and fast 
transitions. A fault or failure is described graphically by 
a horizontal or slow transition between nodes. Because 
failure rates are assumed to be constant in a system’s 
operational phase, the fault arrivals are exponentially 
distributed. The failure rates can be calculated by using 
the MIL-STD 217D handbook or by experimentation. A constant 
representing the number of processors currently on line is 
used in conjunction with the exponential distribution ft to 
represent a slow or horizontal transition between states. A 
node represents the current state of the system. The current 
state is a result of failures and system recoveries leading 
to the current state. States are represented by numbered 
circles as shown in figure 1.1. 

Hybrid systems have the ability to restore the full 
voting plane by substituting a spare processor for a failed 
processor. The recovery is graphically shown as a vertical 
transition between states. By definition the recovery rate, 
represented by d(t) , is fast. The fast transition is 
characterized by a conditional mean recovery time, 
conditional variance and transition probability. 

During the time that a hybrid system failure has 
occurred and the system is attempting to recover, a “race" 
occurs between recovery and the arrival of another fault. If 
the system fails to recover, then another horizontal 
transition will occur. Eventually the hybrid system will 
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enter what is referred to as a death state as depicted by- 
states 3, 6, and 8 in figure 1.1. 

B. THE SURE PROGRAM 

The SURE program developed by the NASA Langley Research 
Center [Ref. 1] is currently running under VMS 3.7 on VAX- 
11/750 and VAX- 11/780 computers. The program was supposedly 
designed with minimal usage of VMS specific constructs, 
however this is debatable since many of the constructs are 
indeed VMS specific and are not easily ported to other 
machines or operating systems. NASA’s SURE is composed of 
several modules - the computational module which is written 
in Pascal, the front end module which is written in Pascal 
and the graphics output module which is written in Fortran, 
and interfaces to the TEMPLATE graphics library. Because the 
graphics environment is very expensive and has specific 
requirements the graphical portion is normally not utilised, 
by users other than NASA. 

The SURE program derivative developed in this Thesis is 
partially functional on an IBM-AT. The program consists of 
three modules - the front end module, the computational 
module and the SURE options module, plus numerous include 
files. The routines are written in the C language using the 
Lattice C compiler. Many of the computational routines are a 
straight Pascal to C conversion. The remaining routines are 
required to provide the graphical interface for the SURE 
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derivative program. When completed the SURE derivative 
program will be able to perform the basic functions of 
NASA’s SURE on a small scale model. 

C. PROBLEM OBJECTIVE 

Research in fault tolerant computers is being conducted 
at the Naval Postgraduate School. The need to quantify the 
reliability of the fault tolerant designs being considered 
is the driving force behind this thesis. The objective of 
this project is to implement the SURE program in a 
relatively inexpensive IBM-AT environment. The program 
should be user friendly, interactive, and able to perform 
the same basic operations as the NASA developed SURE program 
[Ref. 1], To accomplish the objective, the program was 
written in the C language and uses GEM (Graphics Environment 
Manager) [Ref. 6]. 

Reference 1 is the work of Ricky W. Butler of NASA, 
Langley. References 1 and 5 are the basis of all the theory 
discussed in this Thesis. Chapters III and IV present 
discussions developed on White’s technique. 
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I I • P ROGRAM DEVELO PM ENT 

The package developed in this thesis was designed to 
meet the objectives outlined in the previous chapter. It is 
an interactive package written in, C, to run on the IBM-AT 
(Appendix A) . The C language was chosen for the following 
reasons : 

1) C programs using the Lattice compiler can interface 
with the state-of-the-art GEM graphics package. 

2) C code is efficient in terms of memory usage and 
execution speed. 

3) C appears to be the micro-computer language of the 
future, therefore it will be easy for programmers to 
alter and improve this program in the future. 

A. APPROACH TO THE PROBLEM 

A combination of top-down and bottom-up programming 
techniques were used to develop a microcomputer based SURE 
package. First, the tasks that the program must perform 

were defined. Then, each task was developed in greater 
detail until, finally, very specific routines were 
implemented to perform each task. Of course, a few new tasks 
were defined and routines created during the development of 
the program and these new tasks were incorporated with the 
existing GEM routines. 
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The tasks which the program performs may be broken down 
into three basic categories: 

1) Window manipulation. 

2) Program control. 

3) Reliability analysis. 

The approach used to accomplish these tasks is discussed 
in the following subsections. 

1 • Win do w M anipulation 

The window manipulation task uses GEM Application 
Environment Services (AES) to build two windows for the 
display and manipulation of input states and data. GEM AES’s 
subroutine libraries provide routines for a wide variety of 
tasks, including windowing, monitoring the mouse’s movement, 
displaying system messages and error messages, and drawing 
objects on the screen [Ref. 6], The first window (see 
Figure 2.1) is described as the picture window where all the 
graphical interpretations of the system are displayed. The 
second window is referred to as the data window. The picture 
window is initialized to 60 percent of the screen width; the 
remaining 40 percent is occupied by the data window. 

The manipulation of these windows is controlled by 
the subroutines that are contained in , the Front-End of 
SURE (Appendix B) . Specific details about the manipulation 
and editing of these windows can be found in the 
documentation for GEM [Ref. 6]. Although the author found 
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■the GEM documentation very difficult to use and understand, 
nevertheless GEM is a very powerful new product that 
additional documentation should help to make user friendly. 




Figure 2.1 SURE Windows 

The windows can be manipulated in size, viewing 
area, and zooming by manipulating "window control areas" 
located in the border areas of the windows. User interaction 
with any of the window control areas causes some change to 
take place, either in the window or the window as a whole. 
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Additional information about the manipulation of the windows 
will be discussed in chapter VI . 

2 • Program Control 

The environment that the user works in is modeled 
after the Apple Macintosh computer. A "mouse" is used to 
"click" on "windows", pull-down "menus", and otherwise 
interact with the system. Menus represent groups of SURE 
options that a user can choose within SURE. To select a 
menu, the user places the mouse form over the menu’s title 
in the menu bar. This causes the menu to drop down. The menu 
appears in a rectangle below the menu bar and remains until 
the user clicks the mouse button (see Figure 2.2). 

Program control uses the concept of option menus. A 
variety of menus are presented to the user throughout the 
program’s execution showing the options available at that 
time. Sometimes self -management is also used to control the 
option menus. That is, an option selected by the user 
sometimes reduces his subsequent options by automatically 
presenting a predetermined menu. 

The menu driven options approach presents options in 
plain English. As a result the user does not have to know 
any special language or commands. Self management and plain 
English options allow the program execution to flow with a 
minimum number of inputs and far fewer errors. 
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Figure 2.2 Sure Menu 



3 • Reliability Task s 

The original SURE used both the Lee and White 
methods to compute the reliability. Although the objective 
was to transport a graphically enhanced version of the NASA 
developed SURE tool to an inexpensive environment, the IBM- 
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AT version uses only White’s theorem. Nevertheless the 
program was designed to allow additional computation methods 
to be easily added at a later date. The White method is 
discussed at length in Chapter III. 

B. ORGANIZATION OF THE PROGRAM 

Low level routines were written based on their output. 
The input of these routines, then, defined the output of the 
next higher routine. This process of building upward was 
continued until ultimately the required input data came 
directly from the user. For this reason, the parameter 
input routines form the higher levels of the program. 

At all times during the programming process the routines 
were written using modular programming techniques. In the 
GEM environment the menu items and dialog boxes are created 
with the aid of the GEM Resource Construction Set (RCS). A 
dialog box, which is a special form used in the GEM 
environment, provides a consistent method of interaction 
between SURE and the user. After this step is completed the 
code necessary to use the resource file (menus and dialogs) 
must be developed. Additional information can be found in 
reference 6. 

The basic organization of the program is shown in Figure 
2.3. The shell routines were written first, the input model 
routines next, followed by the interactive data routines and 
finally the computation routines. 
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Figure 2.3 Program Organization 
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III. BOUNDS BASE ON MEANS AND VARIANCES 



In this section the Software Implemented Fault Tolerance 
(SIFT) computer [Ref. 7] figure 3.1 is utilized to describe 
White’s theorem [Ref. 5]. White’s theorem provides a 
graphical means of computing the upper and lower bounds of 
probabilities of transitioning a given model through all 
paths to death states. Normally these bounds can be computed 
within five percent of each other. 

In the SIFT model there are a total of sixteen possible 
paths which must be considered to reach deathstates 4, 8, 
11, 14 and 16. 

1 -> 2 -> 3 ->(J) 

1 -> 2 -> 5 -> 6 -> 7 ->© 

« 

1 -> 2 -> 5 -> 6 -> 9 -> 10 -> © 

i 

« 

1 -> 2 -> 5 -> 6 -> 9 -> 10 -> 12 -> 13 -> © 

« 

1 -> 2 -> 5 -> 6 -> 9 -> 10 -> 12 -> 13 -> 15 -> © 

- Death State 

White’s theorem calculates the probabilities of traversing 
the model through each path. The sum of these probabilities 
represents the unreliability of the model. 
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Figure 3.1 Semi-Markov Model of SIFT 
From: reference 1, page 4. 



A. PATH-STEP CLASSIFICATION 

In order to apply White’s theorem three classifications 
of paths through a model must be defined. The classes are 
defined by the "on-path" and "off-path" transitions from 
the state. The "on-path" and "off -path" transitions are 
further defined slow for horizontal transitions and fast for 
vertical transitions. The term "on-path" will be used to 
represent the transition currently analyzed. The state and 
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the transition leaving a state is defined as the "path 
step" . 

1 • Slow On Path, Slow Off Path 




Figure 3.2 Slow on Path, Slow off Path 
From: reference 1. page 6. 

The first class to be discussed represents slow on- 
path fault arrival [Fig. 3.2] characterized by the constant 
failure rate fti . This class may contain many off-path slow 
transitions. The sum of the off -path slow transitions is 
represented by . Transitions 9 -> 10 and 12 -> 13 in 
figure 3.1 are exponential fault arrivals path steps of this 
class . 

The user should note that in this model there are no 
fault recovery transitions. The model represents path steps 
with failure modes only. For electronic circuits with at 
least one fault recovery reconfiguration, a class three 
model should be used. 
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2 . Fast On Path. Arbitrary Off Pat h 




Figure 3.3 Fast On Path, Arbitrary Off Path 
From: reference 1, page 6. 



This class is characterized by a single on-path fast 
vertical transition representing fault recovery [Fig. 3.3], 
Ei represents the sum of all slow transitions. Path steps 
6 -> 9 and 7 -> 10 of the SIFT model shown in figure 3.1 are 
examples of fast transitions. Each fast transition is 
characterized with a conditional mean, conditional variance 
and transition probability. If a single recovery transition 
exists then the transition probability is one, if there is 
two or more transitions then a fractional transition 
probability must be assigned. Many off -path fast and slow 
transitions may exist in this class. 
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3 • S low On Path, Fast Off Path 




Figure 3.4 Slow On Path, Fast Off Path 
From: reference 1, page 11. 



This class [Fig. 3.4] covers all transition classes 
not covered by class one or class two. Specific requirements 
for this class are that at least one fast transition must be 
a off-path transition and the slow transition must be on- 
path. Bj represents the sum of the fault arrival rates for 
the off -path slow transitions. Paths 7 -> 8 and 10 -> 11 in 
figure 3.1 represent this class. 



B. WHITE’S MULTIPLE RECOVERY THEOREM 

White’s theorem as presented in reference 1, bounds the 
upper and lower value of the probability D(t) (see Eq. 3.1) 
of entering a death state during mission time T, subsequent 
to k class one path steps, m class two path steps and n 
class three path steps : 



LB s D(T) < UB 



(3.1) 
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where 



m n 

OB = E(T) 7t p(Fi ) 7C aj u(Hj ) (3.2) 

1 = 1 j = 1 

m u.2 (Fi ) + Cf2 (Fi ) n 

LB = E( T-6 ) rrc p(Fi)[l-€i u(Fi ) - ] tc 

i = 1 ri.2 j = 1 

(aj+(3j )[u2 (Hj ) +cr 2 (Hj )] u2 (Hj )+a 2 (Hj ) 

aj { u(Hj ) > ( 3 . 3 ) 

2 sj 

6 = ri + ... + rm + si + ... + sn 



D(t) = Probability of Entering a Death State 

UB = Upper Bound 

LB = Lower Bound 

U = Conditional Mean 

o 2 = Conditional Variance 

P(Fi)= Transition Probability 

E(T) = the probability of traversing a path consisting of 
only the class 1 path steps within time T. 
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IV. TRANSIENT AND INTERMITTENT MODELS 



White's theorem as discussed in chapter III is designed 
to calculate the probability of entering a pure death state 
of a semi-Markov model. Unfortunately the analysis of an 
electronic circuit may not end at a set of finite paths 
through the model. Occasionally hybrid models under analysis 
will require the modelling of paths which repeat as a result 
of intermittent or transient faults. 

Accordingly, several models that may be used to 
represent this class of fault will now be discussed. 

The first model of a transient fault can be represented 
as shown in figure 4.1. 




Figure 4.1 Transient Fault Model 
From: reference 1, page 13. 

The constant fault arrival rate h represents faults of a 
transient nature in the model. The distribution function 
F(t) represents the time that the transient fault may exist 
in the hybrid circuit being modelled. The hybrid circuits 
being modelled will try to recover by circuit 
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reconfiguration. The reconfiguration process has a 
distribution represented by G(t). An infinite series of 
paths results from using this model [Fig. 4.2]. 

1 -> 2 -> 3 

1 -> 2 -> 1 -> 2 -> 3 

1 -> 2 -> 1 -> 2 -> 1 -> 2 -> 2 -> 3 

1 -> 2 -> 1 -> 2 -> 1 -> 2 -> 1 -> 2 -> 3 



Figure 4.2 Infinite Paths 
From: reference 1, page 13. 

As the length of the path increases the significance of the 
probability of entering the pure death state 3 in the model 
decreases. By limiting the number of times a particular path 
or loop is repeated computational efficiency can be 
achieved. 

NASA’s SURE has a user controlled special constant 
called TRUNC which will limit the number of times that a 
path is traversed in the model. This special constant will 
be included in the completed SURE derivative program. 
Another interrelated constant is the PRUNE constant. It is 
user-specifiable and will terminate the computation of all 
paths which fall below the probability specified by the 
PRUNE constant. The PRUNE constant effects all paths in the 
model inclusive of paths that do not repeat. NASA recommends 
that users experiment with different values for TRUNC and 
PRUNE to ensure convergence. 
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The next model to be discussed is the model representing 
intermittent faults [Fig. 4.3]. The fact that an 
intermittent fault does not disappear differentiates it from 
the transient fault. A fault that is not active is 
represented by Q in the intermittent model . 



This model shown in figure 4.3 appears very similar to 
the previous model, the model is however computationally 
very different. In the intermittent model a loop is formed 
on a vertical or fast transition, which may cause a very 
slow convergence. 

The recommended approach [Ref. 1] for circuits 
exhibiting slow convergence is to model the circuit with the 
collapsed transition model shown in [Fig. 4.4]. In the 
collapsed transition model G* represents the conditional 
mean, conditional variance of the recovery time distribution 




Figure 4.3 Intermittent Faults 
From: reference 1, page 15. 
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and transition probability of a path step attempting to 
recover from an intermittent fault. These values can be 
found experimentally, or calculated from F, G and Q of the 
previous model. 




Figure 4.4 Collapsed Transition 
From: reference 1, page 16. 

The analysis given in this section came from reference 1 
it can be applied to many similar models to demonstrate that 
convergence will occur. Users desiring more information are 
directed to reference 1. 
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V. THE SURE USER INTERFACE 



The SURE derivative program creates a graphical 
environment in which a semi-Markov model can be graphically 
input with a mouse and high resolution display. A simple 
graphical method is utilized to enumerate the fast and slow 
transitions. This is accomplished using many of the routines 
and graphical symbols resident in GEM. Graphical symbols 
such as circles and arrows are used to enumerate the states 
and the transitions between states. Menu options are 
selected by the user initiating very specific dialog boxes 
to appear in the center of the screen. The dialog boxes 
require the user to interact, and form the basis for direct 
data input to the SURE program. The input data which is 
input by way of the dialog boxes is stored in data 
structures for use by the SURE program. The graphical 
language required by the user for interaction with the SURE 
program will be discussed in detail in this section. 

A. BASIC PROGRAM CONCEPT 

As the first step in describing a semi-Markov model the 
SURE user must assign state locations in the picture window. 
Assignment of state numbers is done automatically as the 
state locations are defined. State assignment numbers begin 
at one and are incremented to a maximum of 100. The semi- 
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Markov model description is continued by enumerating all the 
transitions. As described in the previous sections, each 
transition is described as being either slow or fast. 
Consequently, there are two different menu selections used 
to enter transitions - one for slow transitions and the 
other for fast. If the transition is slow, then the slow 
menu selection is used. The user simply moves the mouse into 
the Sure-Options part of the Main Menu. A drop down menu 
will appear. The user then positions the mouse on the 
appropriate entry and clicks the mouse (see Figure 5.1). 




Figure 5.1 Slow Transition 
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A slow transition is the most trivial transition to draw 



graphically. The routines required to draw and label the 
graph are located in Appendix C. The routines necessary are 
self documenting and should be easy to follow. 

This menu selection causes a dialog box to appear in the 
center of the screen (see Figure 5.2). A slow transition 
from 1 to 2 can then be defined by typing in the exponential 
transition rate. This value can be defined using previously 
defined constants or by typing in the numeric values. 

Figure 5.2 defines a slow exponential transition from 
state 1 to state 2 with rate 0.0003. If the transition is 
fast, then the fast transition menu selection is made. 
This selection causes a fast transition dialog box to appear 
in the center of the screen (see Figure 5.3). A fast 
transition from state 2 to state 4 is defined by entering 
the mean, standard deviation and the probability of the 
transition. In both the slow and fast transitions the values 
entered will appear on the screen as shown in Figure 5.4. 
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Sure-Dptions 



Desk File Scr-Options 



SURE PICTURE HIM § 




I 



1- Enter the value for this 
■r* slow transition, 

Constants nay be used. * % 
;i: Backspace over old value; 
- then type in new values, : 



: MT&MMBDM 



pp 




Figure 5.2 Slow Transition Dialog Box 
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i 



Desk file •> Scr options 



Sure-Options 





Figure 5.3 Fast Transition Dialog Box 
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Figure 5.4 Example Slow, Fast. Transition 



B. SURE MODEL DEFINITION SYNTAX 

The transition-description menu selection described 
above are the only essential ingredients in the SURE 
graphical language. However, the flexibility of the SURE 
program has been increased by adding several features 
commonly used by menu driven programs . 
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The SURE user may equate numbers to identifiers. 
Thereafter, these constants identifiers may be used instead 
of the numbers. For example, 

LAMBDA = 0.0052; 

can be entered by selecting the menu item labeled enter 
constants, again a dialog box will appear in the center of 
the screen. The user may then enter the identifier and it’s 
value (see Figure 5.5). 

The user should use a little forethought before 
initiating and defining the constants. When the dialog box 
appears the name of the constant is normally selected and 
should be entered first followed by its value, however 
either can be defined first. The editable fields within the 
dialog box are selected by moving the mouse to the desired 
field and clicking once. The desired values can then be 
entered by way of the keyboard. The user may need to 
backspace over the last items that were entered. 

Constants may also be defined in term of previously 
defined constants: 

GAMMA = LAMBDA* 10; 

In general the constant is identified by a string of up 
to eight letters, digits, and underscores (_) beginning with 
a letter, with a value defined as an arbitrary mathematical 
expression . 
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backspace over the last constant , 
Enter the mm of new ponstont. < : j 

WME;U»|wJ : ,--i- 4 

■1 ■' , f \‘ r'. -.’V * ’■ ■■ i. 

•4 ■' c4. > ; '... *« 

Then type the value you wish to 
assign the constant in the 
the second field, 

run 




Figure 5.5 Enter Constants Dialog Box 



When specifying transition or holding time 

parameters in a dialog box, arbitrary functions of the 

constants may be used. The following operators may be used: 

+ addition 

subtraction 
* multiplication 
/ division 
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Expressions may be grouped by using (). 

The following are permissible expressions: 

.00001 

alpha*l . 2 

alpha*1.2 + alpha*12 
1 • Enter i ng State s 

The states are entered by selecting the menu item 
labeled enter states. The user then carefully selects the 
position of the states in the picture window by placing the 
mouse in the desired location. The user then depresses the 
left mouse button, a state is then drawn and labelled in the 
location specified. The program will not allow a state to be 
drawn too close to another state nor will it allow the user 
to draw a state too close to the boundaries of the window. 



2 . Slow-Transiti on D escription 



A slow 


transition 


is completely 


specified 


by 


selecting a slow transition 


from the menu, 


clicking 


the 


mouse button on 


the source 


state , and then 


clicking 


the 



mouse button on the destination state. The resulting 
transition is displayed in the picture window as an arrow 
connecting the source state to the destination state. The 
dialog box will appear and the user may enter the desired 
rate for this slow transition. The following will appear in 
the data window: 

"source" TO "dest" = "rate" 
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where "source" is the source state, "dest" is the 
destination state, and "rate" is any valid expression 
defining the exponential rate of the transition. In the 
notation of the theory section we have 
i, 3 - ; 



3 . .Fast t.ra.n 5i.t..i..Q.n or.i p t.x_Q.n. 

To enter a fast transition the appropriate menu item 
is selected, then the user designates the source and 
destination as described above. A dialog box appears and 
again the appropriate information is entered. The following 
syntax will appear in the data window. 

"source" TO "dest" = "mean" , "stddev", "fract" 



where 



"mean" = an expression defining the conditional mean 
transition time, u(F) . 

"stddev" = an expression defining the conditional 
standard deviation of the transition time, 
cr(F). 

"fract" = an expression that defines the transition 
probability, p(F) 



and "source" and "dest" define the source and destination 
states, respectively. In the notation of the theory section, 
we have 

i > 3 = < u(Fi), cr(Fi), p(Fi ) >; 



The third parameter "fract" is required to define 
the transition probability. If there is only one recovery 
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transition the probability is 1.0. If there exists more than 
one recovery transition the sum of the probabilities from 
each state should total 1.0, the user must ensure this. 



C. SURE COMMAND SYNTAX 

The SURE menu is broken down into four sub-menus, Desk, 
File, Scr-Options and Sure-Options (see Figure 5.6). 



DESK 


FILE 


SCR-OPTIONS 


SURE-OPTIONS 


About Sure 
Calculator 
Clock 


Load 
Save 
Save AS 
Abandon 
Quit 


Pen/Eraser 
Erase Pic 
View 


Plot Reliab 
Compute Reli 
Print Hard 
Slow Trans 
Fast Trans 
Enter Stat 
Enter Cons 



Figure 5.6 Sure Menus 



Each entry will be discussed in the following sections. 

1 • Des k 

The sub-menu desk contains menu items that are not 
required by SURE. The menu items are listed below: 



About Sure - Produces a dialog box listing information 
about the author of SURE . 

Calculator - For convenience, a calculator will appear 
in the center of the screen allowing the 
user to obtain the value of an arbitrary 
expression . 

Clock - System time will appear on screen 
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2 . F ile 

The sub-menu File contains the menu items for the 
loading and storing of SURE specific information. Each menu 
item is discussed below: 



Load 


- The load selection is used to load a SURE 
run that was previously saved. 


Save 


- Saves the file for current SURE run. The 
user must have previously named the file 
by means of a load or Save As. 


Save As 


- Saves the present SURE run under a new 
filename . 


Abandon 


- Reverts to the last-saved version of the 
users file. If the user is dissatisfied 
with changes made , Abandon clears the 
changes and gives the user a fresh copy. 


Quit 


- Takes the user back to the GEM Desktop. 



3 . Sc reen -Opt ions 

This sub-menu controls the operations performed in 
the picture window and data windows. The screen options are 
discussed below: 

Pen/Eraser - The selection allows the user to select 
the small, medium and large states and 
colors as desired. 

Erase Pic - Erases the currently displayed information 



View 


from the picture and data windows. 

- Allows the picture window to be displayed 
in several expanded and non-expanded 

modes. (To be added Later) 
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4 • Sure-Options 



This sub-menu contains the main SURE user interface 

menu items. It should be used continuously during a SURE 

session. Menu items are discussed below: 

Plot Reliab -After a Compute Reliability, this item can 
be selected to plot the output in the 
picture window. (To be added later) 

Compute Reli -After a semi-Markov model has been fully 





described to the SURE program, this item 
is used to initiate the computation. 


Print Hard 


-This item is used to print the screen to a 
printer. (To be added later) 


Slow Trans 


-Used to define a slow transition. Causes a 
interactive dialog box to appear in the 
center of the screen. The user types in 
the value for the slow transition. 


Fast Trans 


-Used to define a fast transition. Causes a 
interactive dialog box to appear in the 
center of the screen. The user types in 
the values for the fast transition. 


Enter Stat 


-Used to enter the states. Causes the SURE 
program to prepare to receive the state 
locations specified by the user. The user 
defines state locations by positioning the 
mouse cross-hairs and pressing the button. 


Enter Cons 


-Used to enter the user defined constants. 
Causes an interactive dialog box to appear 
in the center of the screen. The user may 
define new constants or any of the Special 
constants discussed below. 
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5 . SURE Derivative Special Constants 

NASA’s SURE has many special constants (see TABLE 
5.1) which interact with the user to provide special program 
control. The definitions and the names of the constants used 



by NASA (Ref. 1, page 25 & 26) are given in TABLE 5.1. 



Several of these special constants such as TRUNC and PRUNE 
were previously discussed. The completed SURE derivative 



program will implement several of these constants as 



follows : 



TABLE 5.1 SPECIAL CONSTANTS 



TIME 

POINTS 

PRUNE 

WARNDIG 

TRUNC 

LBFACT 

LIST 



25; Sets the mission time to 25. The default 
TIME is 10. 

25; Indicates that 25 points should be 
calculated/plotted over the range of 
the variable. 

Default value is 25. 

.1; Sets pruning level to .1. The program 
will stop searching a path after its 
current probability becomes less than the 
specified level. The default is 0.0. 

2; Sets the number of digits accuracy 
desired in the upper bound to 2 when the 
PRUNE command is in use. The default is 
1 . 

2; Sets truncation point at 2. Default is 3. 
If an infinite loop is found in the graph 
this determines the maximum number of 
times that the loop will be traversed. 

20; Sets the ki and k!j constants in White’s 
theorem to 20 . 

3; Sets the level of information to be sent 
to the Data window. Default is 2. 



Adapted from: reference 1, page 25 & 26. 
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VI . EXAMPLE SURE SESSIONS 



A. OUTLINE OF A TYPICAL SESSION 

The SURE program was designed for interactive use. It 
uses a graphical approach to describe a semi -Markov model. 
The following method of use is recommended: 

1. Select the desired state size, using the pen/erase 
menu item. The default size is medium. All graphical 
sizing aids are presently designed to operate in the 
medium mode. 

2. Enter all the Special constants. 

3. Enter all the user defined constants. 

4. Use the mouse to carefully enter the state 

locations. Verify that the model appears in the 

desired form. If the model is not in the desired 

form erase the model by using erase picture. 

5. Carefully define the transitions by selecting either 

a slow or fast transition. Define the source state 
by clicking once on the state, define the (dest) 

destination state by clicking once on the state. The 
appropriate state is selected if the mouse location 
is within 18 pixels of the center of a state. Enter 
the values to describe the transition. 

6. Select the compute reliability menu item. 



B. EXAMPLES 

The following examples illustrate direct interactive 
SURE sessions. The actual graph is given first then the SURE 
program analysis. The final results are simulations since 
the computation module which calculates the upper and lower 
bounds is still being debugged. 



42 



1 . Example 1 

This session illustrates direct interactive input 
of a simple semi-Markov model (see Figure 6.1). 



The following sequence of Figures is exactly what the 
SURE user would see during the execution of this example. 
Figure 6.2 is the initial screen displayed when the the Sure 
program is selected. 

The sequence to follow is not critical to the operation 
of the SURE program. It is simply intended as a guideline. 
The sequence can be rearranged in practically any order. The 
user may add states at any time during the initial diagram 
description. If during the process of describing the 
graphical model a constant is changed, that defines a 
transition, the model will not display the change but the 
program will use the latest value of the constant in it’s 
computations . 




.0001 

.00001 

1.0 




Figure 6.1 Simple Model 
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Figure 6.2 SURE Initial Display 



Next, the constants for this example are entered by 
selecting enter constants. Figure 6.3 illustrates the 
display after all the constants have been entered. 
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Figure 6.3 Example 1 Constants 

The states are the next items to be added to this SURE 
problem. As discussed earlier care must be taken in 
selecting the locations for the states. The graph shown in 
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Figure 6.4 was produced while trying to keep in mind the 
graph depicted in Figure 6.1. 




Figure 6.4 Example 1 States 
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After the states have been entered, the transitions are 
entered as discussed in Chapter five (5). The completed 
graph is shown in Figure 6.5. 



n 



Desk File Scr-Options Sure-Options 



..... SURE PICTURE UINDOU 



SURE DATA UINDOU 





Figure 6.5 Example 1 Complete Graph 

The next step is to do the calculations. This is 
accomplished by making the menu selection labeled Compute 
Reliability. The complete example 1 results are displayed in 
Figure 6.6. 
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Figure 6.6 Complete Example 1 
(Calculations have been Simulated) 
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2 . Exampl e 2 



The following example illustrates the use of SURE to 
solve a model of a triplex system with one spare (see Figure 
6.7). The plot reliability function is also displayed. 




LAMBDA* 3 



LAMBDA* 2 




.00027 

.001 

1.0 

LAMBDA* 3 




LAMBDA* 2 




Figure 6.7 Example 2 Model 



Figure 6.8 shows the model after it has been entered 
into the SURE program. Again note that an effort was made to 
keep good alignment and to represent the model as shown in 
Figure 6.7. 
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Figure 6.8 SURE Example 2 Entered 



Figure 6.9 shows the completed example 2 problem. The 
problem can be saved for future use by using the functions 
described earlier under the sub-menu titled File. 
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Figure 6.9 Completed Example 2 
(Calculations have been simulated) 
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VI 1. CONCLUSIONS 



A. SUMMARY OF RESULTS 

The SURE program is a flexible, user-friendly, 
interactive graphical tool, modeled after the SURE program 
developed by Ricky W. Butler of Langley Research Center 
Hampton, Virginia. The program provides a rapid 
computational capability for semi-Markov models useful in 
describing the fault-handling behavior of fault-tolerant 
computer systems. The only modeling restriction imposed by 
the program is that general recovery transitions must be 
fast in comparison to the mission time. The SURE reliability 
analysis method utilizes a fast approximation theory 
developed by Allan L. White of PRC Kentron, Inc.. These 
upper and lower bounds are typically within 5 percent of 
each other. 

Although the approximation theory does not explicitly 
deal with semi-Markov models that are not death processes, 
the SURE program utilizes simple path truncation strategies 
to enable the analysis of such models. 
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B. RECOMMENDATIONS 



It is recommended that additional work be done on the 
program to remove the following bugs which presently exist 
in the program. 

1) State locations are determined by storing the pixel 
coordinates in a structure called STATE_LOC . These 
coordinates are determined by the location of the mouse in 
the picture window when a state location is specified by the 
user. The program will currently operate using pixel 
locations of the picture window when the picture window has 
not been scrolled. 

2) The parser required to implement the use of all the 
special constants has not been included in the listings. The 
final listings will be available on disk. 

3) The GEM package currently uses a very crude method of 
writing to the screen. The GEM subroutine v_gtext(), 
requires all text to be in a character string. Additional 
work should be done to create a better method of displaying 
floats and integers. 
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APPENDIX A 
GETTING STARTED 



HARDWARE REQUIREMENTS 

The recommended hardware for the SURE program is an IBM 
PC/XT or AT (or 100% compatible) with 512K RAM, a graphics 
card, and a mouse. 

Supported graphics card include: 

- Monochrome Hercules Graphics Card(TM) 

- IBM Color Graphics Card (in monochrome mode) 

- IBM Enhanced Graphics Card 

Supported mice are PC Mouse by Mouse Systems (TM), the 
Microsoft Mouse, Summary graphics Tablet, and keyboard. 

SOFTWARE REQUIREMENTS 

In order to use SURE you must have the GEM Programmer’s 
Toolkit(TM) installed on your machine. To install the 
software on your IBM PC/XT or AT, follow the instructions 
included with GEM, or do the following: 

1. Load DOS into your computer. 

2. Place the GEM SYSTEM MASTER in drive A, type GEMPREP, 
and press ENTER. Follow the instructions carefully, 
answering any questions you are asked. 

3. Create a subdirectory called TOOLS and copy the disks 
with GEM PROGRAMMER’S TOOLKIT to that area. 

4. Copy the SURE program disk into that area. 
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5. The items listed below are required for the user who 

wishes to edit the SURE program. 

- PC DOS version 2.0 or higher 

- the lattice C compiler (the user may use another 
compiler but extensive rewriting of the GEM 
bindings may be required) 

- an assembler, linker, and librarian such as those 
provided in DR Assembler Plus Tools (RASM-86, 
LINK-86, LIB-86) 



USING SURE 

The SURE application can be executed by/from the GEM 
Desktop, by doing either of the following: 



- Double-click on the SURE icon. 

- Select the SURE icon and then choose the Open 
command from the File Menu. 



Note: An icon is a GEM symbol. 
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APPENDIX B 



FRONT END OF SURE LISTING 

The SURE routines that contain the code required to 
manage the windows and menus are contained in this Appendix. 
The code was developed by using a example of an application 
that came with GEM called Demo. Considerable modification of 
the original code has taken place. Most of the code 
conversion was done to add the second window called the data 
window. The window called the picture window was referred to 
as the work_area in the demo program. 

Demo contains several routines which are not currently 
being used by SURE. These routines were retained for future 
development of the SURE program. 
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/tmimiiimmmiiiiiiiimiimiuiiiiiimmutiiiimiiitiitti/ 

It File: SURE. C 1 / 

/tittunutuuttitttttutmtmtmtttttmmtuttntttttttttttmti 

it ti 



It 
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EEEEEE 


ti 


It 
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EE 


ti 


it 


ssssss 


uu 
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RRRRR 
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tl 


it 
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ti 


it 


ssssss 
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EEEEEE 


tl 



It il 

ittuutunitttttnuuuttmtttuttuuutittmmttttntumtttw 



itttmtmtmttmtmttttttttttuuutttttmttttttmttttttttmttti 



It 


Author: 


MAJOR JOHN C. BORDEAUX U.S.H.C. 


tl 


It 


PRODUCT: 


MARKOV ANALYSIS TOOL 


tl 


It 


Module: 


REVISION OF DEMO, Version 1,1, FROM DRI 


tl 


It 

It 


Version: 


APRIL 198s 


ti 

tl 



/tttmmutnuutttuttmntttttmttttnuuunnumttmunw 



it - -i / 

It includes tl 

It tl 



iinclude “pcrtab.h B 


It portable coding conv 


tl 


iinclude *»achine.h" 


it machine depndnt conv 


ti 


Iinclude a obdef s.h H 


It object definitions 


ti 


Iinclude “treeaddr .h" 


ft tree address macros 


ti 


Iinclude B gefflbmd.h” 


ft gea binding structs 


ti 


Iinclude B sure.h H 


It SURE api resource 


tl 


Iinclude s iath.h B 






Iinclude B liftit5.h" 






Iinclude B optstrct.h B 







Ittl It file offsets ti 



It — tl 

It defines tl 

It - tl 

♦define MAXSTATE 100 

♦define MAXTRANS 200 

♦define ARROW 0 

♦define HOUR.ELASS 2 

♦define DESK 0 



♦define END.UPDATE 0 

♦define BE6_UPDATE 1 
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idef me 


PEN. INK BLACK 








idefine 


PEN.ERASER WHITE 








♦define 


PEN.F1NE 1 








idefine 


PEN_MEDIUtt 5 








idefine 


PEN.BROAD 9 








idefine 


X_FWD 0x0100 




!X extended object types 


XI 


idefine 


K BAK 0x0200 




IX used with scrolling 


XI 


idefine 


XSEL 0x0300 




IX selectors 


XI 


idefine 


N_C0L0RS 15L 








idefine 


YSCALE'x! UHUL.DIVix, 


scrn. 


_xsize, scrnj/size) 




idefine 


TE.TXTIENIx) (x + 24) 








idef me 


BI.PDATA(x) (x) 








idefine 


B!_WB !x ) (x + 4! 








idefine 

a 


BI.HL(x) (x + 6) 


1 / 

X! 






i ♦ 

IX 


SURE VARIABLES 










X l 






/ 1 








extern 


WORD TIME; 




it mission time 


XI 


extern 


WORD POINTS; 




IX number of points plotted 


XI 


extern 


L0N6 PRUNE; 




it deactivate th prunmng 


XI 


extern 


WORD WARNDIS: 




it set ub acc. to two digits 


XI 


extern 


WORD TRUNC; 




ft set loop traversals at 3 


XI 


extern 


WORD LBFACT; 




IX sets the Ki and Kj = 20 


XI 


extern 


WORD LIST; 




it sets the basic output level 


XI 


double 


speclow = -1; 




it variable range value 


XI 


double 


spechigh = -i; 




IX variable range value 


XI 


BOOLEAN 


erun; 




IX runtime errors flag 


XI 


BOOLEAN 


nonl i near =FALSE; 




ft nonlinear flag 


XI 


double 


specval; 




it special variable value 


x i 


double 


ubf ail ; 




ft prob of system failure 


XI 


double 


lbfail; 




it lower bound of failure 


XI 


WORD 


ydata = 1; 




/ I Current data line 


XI 


WORD 


runno=0; 




IX run number 


XI 


WORD 


pathcount - 0; 




IX nufiber of paths 


XI 


WORD 


cnttrunc = 0; 




IX number of loops truncated 


XI 


WORD 


cntprunE = 0; 




IX number of paths pruned 


XI 


WORD 


bigst = 1; 




IX largest state entered so far 


XI 


double 


e_of _t ; 




It E (T) computation result 


XI 


double 


e_of_t_deI; 




IX E(T-I) computation result 


XI 


BOOLEAN 


et_bad = FALSE; 




It E(T) coip. is inaccurate 


XI 


BOOLEAN 


rec_slaw = FALSE; 




IX recovery too slow 


XI 


BOOLEAN 


std_big = FALSE; 




It Rec Std. too big 


XI 


BOOLEAN 


rate_big = FALSE; 




IX Exp* rate too fast 


XI 


WORD 


i; 
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double 


pialpha; 


ft 


product of the alphas 


V 


double 


1 owhf , 1 owbg; 


ft 


interaediate results 


tf 


WORD 


nuiJ_5tates = 1; 


ft 


nufflber of states enterec 


tf 



ft External Functions 1/ 

ft 1/ 

EXTERN LONG dos.allocO; 

ft - — -1/ 

ft Global Data Structures tf 

ft tf 

BTATE_L0C state_array[MAXSTATE3; 

/mmmmmiuuuimuumummiuuuuimmummmu/ 

fttttutitttttttttttttttttttttttttttttttttmttttttttttttttttttttttttttf 



ftttt 




ttttf 


ftttt 


Data Structures 


ttttf 


ftttt 




ttttf 



/ittttttttttttttttttttttttttttttttntttttttttttttttttttttttttttttttttttf 

ittttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttf 

ft tf 

ft Extrni Data Structures 1/ 
ft 1/ 

EXTERN UWQRD D0S_ERR; 

EXTERN LONG drawabdr; 



/ 1 




— i/ 






fi Global 


Data Structures 


tf 






ft 




-tf 






6LOBAL WORD 


contrl C 1 ! 3 ; 




ft control inputs 


tf 


GLOBAL WORD 


intin[80]j 




ft ®ax string length 


tf 


GLOBAL WORD 


ptsiri[2j63; 




ft polygon fill points 


tf 


GLOBAL WORD 


intout [453; 




ft open workstation output 


tf 


GLOBAL WORD 


ptsout C 12 3 ; 









it — 




—tf 






ft 


Local Data Structures 


tf 






ft — 




—tf 






WORD 


gl _wchar ; 




ft character width 


tf 


WORD 


gl_hchar; 




ft character height 


t! 


WORD 


gl_wbox; 




ft box (cell) width 


tf 


WORD 


gl.hbox; 




ft box (cell) height 


tf 


WORD 


gl_hspace; 




ft Ht, of space between lines 


tf 


WORD 


geii_hand!e; 




ft GEH vdi handle 


tf 


WORD 


vdi handl e; 




ft SURE vdi handle 


tf 



59 



WQkD 


work_outL57 3; 


t open vi rt workstation values!/ 


WORD 


cur_tit = FULL I TEh : 


ft type of trnsfir.in effect ti 



BRED ; 


scrn_srea; 








gre: t 


Curr_work; 


ft «ork area of current window 


ti 


GREET 


pict_work; 


ft work area of ’picture* window 


t ! 


GREET 


cat a_wc«r k ; 








GREET 


pict_rect; 


it H! 


jt\ area of ’picture 7 window 


ti 


GREET 


data_rect; 








GREET 


curr_undo; 








GREET 


pict_unric; 








GREET 


data_undo; 








GREET 


pict jjrev_i)ndo; 


/i save area for full/untullinq 


ti 


GREET 


data_prev_undc; 








WORD 


g]_r#5g[B]; 


it 


message buffer 


ti 


LONS 


ad_rffisq; 


it 


LONG pointer to sessaqe btr 


X 


LONG 


gljenu; 


!\ 


menu tree address 


Xi 


WORD 


qi_api d; 


It 


application ID 


ti 


WORD 


gl_xf ul I ; 


(X 


full window 7 x 7 


ti 


WORD 


gl.yfull; 


ft 


full window 7 y 7 


ti 


WORD 


g] _wf uil ; 


ft 


full window V 


ti 


WORE 


gl_htul 1 ; 


it 


full window V 


ti 


WORD 


scrn_width; 


it 


screen width in pixels 


ti 


WORD 


scrn^heiqnt; 


it 


screen height in pixels 


ti 


WORD 


scrnjsianes; 


it 


number of color planes 


ti 


WORD 


5crn_x5izei 


it 


width of one pixel 


1/ 


WORD 


5crn_ysi2e; 


ft 


neignt of one pixel 


ti 


UMORD 


= FALSE; 


it 


mouse m/out of window flag ti 


WORD 


ev_which; 


it 


event multi return state (s) 


ti 


DWORD 


mouses, mousey; 


it 


souse x,y position 


ti 


DWORD 


bstate, bclicks; 


it 


button state, l? # of clicks 


ti 


DWORD 


fcstate, kreturn; 


it 


key state ano Keyboard char 


a 


PSFDB 


curr_mfdb; 








MFDB 


pict_mfdb; 








kfdb 


data_iif db ; 








HFDE 


scrnjifdu; 








LONS 


sizejjict jfifdb; 








LONS 


si ze_data_«f db; 








LONG 


ioc_pict_mf db; 








LONG 


lcc_data_®fdb; 








WORD 


curr_hndl ; 








WORD 


pictjindl ; 


it 


SURE window handle 


ti 


WORD 


dat a_hnd I ; 


it 


SURE data window handle 


ti 
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WORD 


SURE_shade = PENJNK; 


it 


SURE current pen shade 


ti 


WORD 


pen_shade = PENJNK; 


it 


saved pen shade 


ti 


WORD 


SURE_pen = 5; 


ft 


SURE current pen width 


ti 


WORD 


radius = 16; 


it 


radius of state 


ti 


WORD 


SURE_hei ght = 4; 


it 


SURE current char height 


ti 


WORD . 


char_f ine; 


it 


character height for fine 


ti 


WORD 


char_aediuff:; 


it 


character height for siediui 


a 


WORD 


char J r oad; 


it 


character height for broad 


ti 


WORD 


sonuaber = 5; 


it 


mouse for* nuaber 


ti 


LONS 


aofaddr = OxOL; 


it 


souse fora address 


ti 


WORD 


f llejandle; 


it 


file handle -> pict Id/sv 


ti 


BYTE 


file]na*e[64] = DD ; 


it 


current pict file naae 


ti 


BOOLEAN 


key_i nput ; 


it 


key inputting state 


ti 


WORD 


key _xbeQ ; 


it 


x posit for line beginning 


ti 


WORD 


key_ybeg; 


it 


y posit for line beginning 


ti 


WORD 


keyjcurr ; 


it 


current x position 


ti 


WORD 


kev_ycurr; 


it 


current y position 


ti 






it 


SURE window title 


ti 


BYTE 


twdw_t i tie = B SURE PICTURE 


WINDOW H ; 




BYTE 


twdwjdata = D SURE DATA WINDOW E ; 


i 




WORD 


usercolor[21 = (1, 0); 








KFDB 


userbrush_uifdb; 








USERBLK 


DrushubI63; 








LONG 


color^sel ENCQLORS+ i ] = { 


it 


data for scrolling 


ti 


N_C0LGR5, 


it 


color bar 


ti 



0x3tFF!071L, 
0x32FFlG72L, 
0x33FFi073L, 
Ox 34FF1 0741 , 
Ox 35FFI075L, 
Ox36FF 1076L , 
Ox 37FF 1 077L , 
0x38FF1078L, 
0x39FF1079L, 
0x4 IFF 1 07AL, 
Ox 42FF 107BL, 
0x43FF107CL, 
Ox 44FF 1 07DL , 
Ox 45FF 1 07EL , 
Ox 46FF 1 07FL) ; 



it ti 

it House Data Structures ti 
it - — ■ -ti 

WORD er asebroad [371 = 

{ 



7 , 7 , 1 , 0 , 1 , 

0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, OxlffO, Ox If tO, Ox If fO, 



it souse fora for Droad eraser 1/ 



it aask for broad erase 1/ 
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Ox If f 0, Ox If -fC, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x7f f c , 0x600c, 0x600c, Ox 600c , 
0x600c, 0x600c, 0x7f f c, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000 

>! 

WORD erase_*ediuii[37] = 

{ 

7, 7, 1, 0, !, 

0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x07c0, 0x07c0, 
Ox 07c0, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, Ox If f 0, 0x1830, 0x1830, 
0x1830, Ox If 10, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000 

); 

WORD erase_f ine[373 = 

{ 

7, 7, 1, 0, 1, 

0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0100, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000, 
OxOOOQ, 0x0000, 0x07c0, 0x06c0, 
0x07c0, 0x0000, 0x0000, 0x0000, 
0x0000, 0x0000, 0x0000, 0x0000 



It data for broad erase 1/ 



It souse for* for sediu* eraser!/ 



It sask for sedius erase 1/ 



It data for sedius erase !/ 



It souse for* for fine eraser 1/ 



/! sask for fine erase I / 



It data for fine erase I / 



/tsttttittttimtttittttttjtittttttttittttiiiittitittttttititttttittttt/ 

/tttitttttmititittiiimtttttittttutititttttttitttttttttttittuttttt/ 

inn im / 

/lit! Local Procedures I til/ 

/till lilt/ 

/tttttiiiitmttttttttittmtttttttttttiitttitmtttitttttitiiiitttttti/ 
/tttitttiiitttmiiiiittttmttitiiiittittititttiittitiittttttititttitt/ 



/ 1 -i / 

It sin 1/ 

It — - 1/ 

WORD 

*in(a, b) It return sin of two values 1/ 



WORD a, b; 

{ 

return! (a < b! ? a : b ); 
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} 



ft — -1/ 

ft sax if 

ft 1/ 

WORD 

»ax(a, b) ft return max of two values tf 

WORD a, b; 



return ( (a > b) ? a : b ) ; 

} 



ft - tf 

ft reverse tf 

ft tf 

reverse(s) ft reverse string s in place tf 

BYTE s[3; 



WORD c,i,j; 

for ( 2 = 0 , j=strlen(s)-l; 1 < j; i ++, j — ) 
{ 

c = sti 1; 
sC l 3 = stjj; 

5[j 3 = c; 

} 

} 

ft reverse tf 



it - if 

it itoa if 

ft tf 

itoa(n, s) 

BYTE s []; 

WORD n; 

{ 



WORD i, sign; 
if ((sign = n) < 0) 
n = -n; 

i = 0; 

do { 

$[i++3 = n l 10 + *0*5 
} while (in /= 10) > 0); 
if (sign < 0) 

sti++3 = 7 - 7 ; 
sCi 3 = 'Ur; 
reverse(s); 

} 

ft itoa tf 



ft convert n to characters in si/ 



ft record sign tf 
ft »ake n positive tf 

ft generate digits in reverse tf 
ft order, get next digit tf 
ft delete it tf 
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ft tl 

it atof(s) tl 

ft — tf 

double 

atof(s) It Convert string s to double if 

BYTE s [ 3 ; 

{ 



double val, power; 
WORD i, sign; 



for ( i=0; sti 3==* ’ !! sLi 3==^^’ 1! s[i3== ? \t’; i++! 

; It Skip white space tl 

sign = 1; 

if (s[i3 == ? +' IS sti 3 == 1 ) It Sign tl 

sign = (sC i ++]== ? +M ? 1 ; -1; 
for (val = 0; sti] >= 7 0 ? sLi 3 <= ’9'; i++) 
val = 10 t val + sti 3 - 'O'; 
if (sCi 3 == V) 
i++; 

for (power = i; sCi 3 >= 'O’ && sti] <= '9'; i++) 

{ 

val =10 t val + stil - -0 ? ; 
power t- 10; 

} 

return (sign t val / power); 

} It atof (s) tl 



It- - tf 

It stri ng_addr tl 

It tl 

LONS 

string_addr (which) It returns a tedinfo LONS string addr tl 

WORD which; 

t 

x 

LONS where; 



rsrc_gaddr(R_STRING, which, twhere); 
return (where); 
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it— 1/ 

It rc equal tl 

It- - Z - *' 

WORD 

rc equal (pi, p2) It tests tor two rectangles equal t! 

SRECT tpl, Ip2; 

r 

\ 

if ( (p!->o_x != p2->g_s) ! ! 

(pl->g_y ,= p2->g_y) ! ! 

(p!->g_w ,= p2->g_w) i ! 

(pl->g_h != p2-)g_h)) 



return (FALSE) ; 
return (TRUE) ; 

} 



It 1/ 

It rc_copy tl 

it- - ti 

VOID 

rc_copy(ps&ux, pdbox) It copy source to destination rectangle tl 

6RECT tpsbox; 

6RECT t pdbox ; 

{ 



pdbox- >g_x = psbox->gj; 
pdbox->g_y - psbox- >g_y ; 
pdbox- >g_« = psbox->g_w, 
pdbox->g_h = psbox->g_h; 

} 



It- tl 

It rc_intersect tl 

It ti 

WORD 

rcjntersect (pi, p2) It coapute intersect of two rectangles!/ 

SRECT tpl, tp2; 

{ 



WORD tx, ty, tw, th ; 

tw = #in(p2->g_x + p2->g_w, pl->g_x + pl->g_w): 

th = fflin\p2->g_y + p2->g_h, pl->g_y + pl->g_h); 

tx =• «ax(p2->g_x, p 1 ->g_x ) ; 

ty = sax (p2->g_y, pl->g_yl; 

p2- >g_x = tx; 

p2->g.y 1 ty; 

p2->g_w = tw - tx; 
p2-)g_h = th - ty; 
return! !tw > tx) && (th > ty) ); 
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[ 






l 



1 



ft tf 

ft inside if 

ft tf 

DWORD 

insideix, y, pt) ft determine it x,y is in rectangle if 

UWQRD x, y; 

6RECT Ipt; 

{ 



if ( ix >= pt->g_x ) && (y >= pt->g_y) 

(x < pt- >g_x + pt->g_w) H (y < p t- >Q_y + pt->g_h) ) 
return (TRUE) ; 

else 

return (FALSE) ; 

} / I inside 1/ 



ft 1/ 

ft grect_to_array if 

ft if 

VOID 

grect_to_array(area, array) ft convert x,y,w,h to upr It x,y and 1/ 

6RECT larea; ft lwr rt x,y t! 

WORD larray; 

{ 

larray++ = area->g_x; 

larray 4 -* = area->g_y; 

larray++ = area-)g_x + area->q_w - 1; 

larray = area->g_y + area->g_h - 1; 



ft - I / 

ft rast_op tf 

ft 1 tf 

VOID 



rast_op(fode, s_area, s_ftfdb, d_area, d_«fdb) ft bit block level trns 1/ 
WORD node; 

BRECT ls_area, ld_area; 

KFDB ls_fflfdb, ld_sfdb; 

{ 

WORD p x y [ 8 ] ; 



grect_to_array (s_area, pxy); 

greet _to_arr ay (d_area, &pxy[43) ; 

vro_cpyf a (vdihandl e, node, pxy, s_«fdb, d_«fdb); 
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■ 

- 



It - tl 

It vdi fix tl 

It- : tl 

VOID 



vdi_fix(pfd, theaddr, wb, h) 
"MFDB ipfd; 

LONG theaddr; 

WORD wb, hj 

{ 

pfd-Mww = wb >> 1; 
pfd-Mwp = wb (\ 3; 
pfd-Mh = h; 
pfd->np = 1; 
pfd->igp = theaddr; 



It - 1/ 

It vdi_trans tl 

It - — 1/ 

WORD 



vdi trans (saddr , swb, daddr, dwb, h) 



LONG 


saddr; 






WORD 


s wb ; 






LONG 


daddr; 






WORD 


d wb ; 






WORD 


h; 






KFDB 


src, dst ; 






vd i _f i 


xdsrc, saddr, 


swb, 


h); 


src'ff 


= TRUE; 






vdi _{ i 


x didst, daddr, 


d wb , 


h); 


dstTf-f 


= FALSE; 






vr_trnf*{vdi_handle, 


isrCj 


, idst 



It 1 / 

ft trans_gi&age t! 

It : 1 ! 

VOID 



tran5_gisage(tree, obj) 

LONG tree; 

WORD obj; 

{ 

LONG taddr, obspec ; 

WORD wb, hi; 

obspec = LLSET (OB^SPEC (obj > ) ; 
taddr = LLBET(BI.PDATA(obspec) ) ; 
wb = LWGET(BI_WB(obspec)); 
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hi = LWSET (BI_HL (obspec ) ) ; 
vdi_trans(taddr, Mb, taddr, wb, hi); 



ft - - - t/ 

it do open X! 

ft-— 1 M 

VOID 



do_open(Hh, or , org_y, x, y, w, h) ft grow and open specified wdw if 
WORD «h; 

WORD org_x, or g_y ; 

WORD x, y, m, h; 

{ 

graf_growbox iorg_x, or g_y , 21, 21, x, y, m, h); 
wind_open(wh, x, y, «, h); 



it if 

ft do_ciose t! 

ft - if 



VOID 

do_ciose(wh, org_x, org_y) It close and shrink specified window if 

WORD wh; 

WORD org_x, org_y; 

{ 

WORD x, y, w, h; 

Mind_get (wh, WF CX YWH, &x, , &w, &h); 

wind^doseiwh); 

graf_5hrinkbox (or g_x , org_y, 21, 21, x, y, w, h ) ; 

i 

/ 



ft ti 

ft set_c!ip if 

ft — if 



VOID 

setcl ip (cl i p_f lag, s_area) ft set clip to specified area if 

WORD dipjlag; 

GRtCT Is area; 

{ 

WORD px y C 4 3 ; 

grect_to_array (s_area, pxy) ; 
vs_clip(ydi_handle, cl ip -flag, pxy); 
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L 






- 



xi 

XI 

x i 



draw rect 



/!-- 

n 

it 

VOID 

draw_rect (area) 
6RECT tar ea; 

{ 



WORD 


p x y C 1 0 3 ; 


pxy[03 


= area->g_x; 


pxy [ 1 3 


= area-)g_y; 


pxyC2! 


= area->g_x + area->g_w 


pxy £33 


= area->g_y + area->g_h 


pxy[4 3 


= pxy[2]; 


pxyCS] 


1 pxyC33; 


px y C 3 3 


= 


pxy C 6 3 


1 pxyCO] ; 


pxy C 7 3 


= pxy[53; 


pxyCS] 


= pxy £03 ; 


pxy [93 


* 


v_pline(vdi_haridle, 5, pxy); 



i; 



/I— »/ 

IX align_x X! 

ft : XI 

WORD 

align_x(x) ft forces word alignment for column position 1/ 

WORD x; IX rounding to nearest word X! 

t 

\ 



return ( (x k OxfffO) + ((x & 0x000c) ? 0x0010 : 0)); 

} 



lunxtxmxxuxittttxttxnxxtxtxnxnxxxxxtxixxutxtxxttuxxtuttxxttxi 

ixxxxxnxxxnixxxxtxxtxxxixxxxxtxxxxxxxixxxuxxnxxxxxxtxxxxxxxxtxxtxxti 

iXXXX XXXX! 

IXXXX Advanced Dialog Handling XtXXI 

IXXXX III X! 

/xxixxxuxxxtxxxxtxnxxxxxxxtxtxxxxxxxxxttnxxxxxtttxxtxxxxxtxtxxxxxxxx! 

/iiiiiiumiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuui/ 



/ 1 XI 

IX set_select XI 

IX : 1/ 

VOID 



set^select (tree, obi, init_no, bind, arry) 
LONG tree, bind!!, arry C 3 ; 

WORD obj, ini tno; 
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[ 



r 

I 






{ 



WGRDn, nobj, cob i , count; 



indir_obj (tree, obj); 

D 1 nd [ 0 3 = LL6ET(0B_SPEC(obj)); 

LLSET (OB SPEC Cob j ) , ADDR (bind) ) ; 
bindt 13 = ADDR(arry) ; 

n = (WORD) arry[03; 
count = 0; 

for (cob j = LNGET (0B_HEAD (ob j ) > ; cobj != ob j ; 
cobj = LWGET(OB_NEXT(cobj))) 

{ 

i ndi r obj (tree, cobj) ; 

LLSET(GB_SPEC(cobj), ADDR ( fcarrytcount ♦ 13 )); 
count = (count + 1) l n; 

} 

nobj = LWGET (OBNEXT (obj) ) ; 
indir_obj (tree, nobj); 

LLSET (OB_SPECinobj), ADDR ( iarryH ♦ ini t_no l n3 )); 



It - tl 

It getsel ect tl 

It tl 

WORD 



get_sel ect (tree, obj) 

LONS tree; 

WORD obi; 

{ 

WORD nobj, cobj; 

LONS bind, arry, tesp; 

bind = LLSET (GB_SPEC (obj ) ) ; 
dir_obj (tree, obj); 

LLSET (0B_SPEC(obj) , LLSET (bind)) ; 
arry = LL6ET (bi nd ♦ si zeof (LONG) ); 

Tor (cobj = LWGET (0B_HEAD(ob j ) ) ; cobj != obj; 
cobj = LWGET (GBNEXTTcob j ) ) ) 

{ 

di r ob j (tree, cobj); 

LLSET (0B_SPEC (cob j ) , LL6ET (LLSET (OB.SPEC (cob j ) ) ) ) ; 

) 

nobj = LWGET (OBNEXT (ob j ) ) ; 
dir obj (tree , nobj); 
te»p = LLGET (DB.SPEC (nobj ) > ; 

LLSET (OBSPEC (nobj ) , LLGET (te»p) ) ; 

return (WORD) (temp - arry) / si zeo-f (LONG) - i; 
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r 

r 



It — 1/ 

It «DV&_do tf 

It tf 



VOID 

#ove_do(tree, obj, inc) 

LONG" tree; 

WORD obj, inc; 

{ 

WORD cobj; 

LONG n, bind, arry, limit, obspec; 

obj = ge tparent (tree, obj); 
obj * LMBET <0B_NEXT (obj ) ) ; 
bind = LLBET (0B_SPEC (obj ) ) ; 
arry = LLGET (bind + sizeof (LONG) ) ; 
n = LLGET (arry) t sizeof (LONS) ; 
limit = arry + n; 

for (cobj = LW6ET (0B_HEAD(ob j ) ) ; cobj != obj; 
cobj = LKGET(OBJOTlcohj))) 

r 

obspec = LLGET ( 0B_BPEC ( cob j ) ) ; 

obspec t= inc I sizeof (LONG) ; 

while (obspec <= arry \\ obspec > limit) 

obspec += n t ((obspec > limit)? -1: 1); 
LLBET (OB.SPEC(cobj), obspec); 

} 

redraw_do(tree, cbj); 

} 



ft - tf 

It redraw_do 1/ 

It tf 

VOID 



redraw jioitree, obj) 

LONG "tree; 

WORD obj; 

{ 

GRECT o; 

objc_xywh(tree, obj, &o); 

o.gj -= 3; o. g_y -= 3; c.g_w += 6; o.g_h += 6; 

objc_draw(tree, ROOT, MAX^DEPTH, c.g_x, o.g_y, o.g_w, o.g_h) 



71 



It — tl 

It x tend do t / 

It — 1 tl 

WORD 



xtend_do(tree, ob j , xtype) 

LONG " tree; 

WORD ob j , xtype; 

{ 

LONG obspec ; 

switch (xtype) ( 
case X_£EL : 

obspec = LLGET (OB^SPEC (ob j > ) ; 
obj = get_parent (tree, cbj); 
obj = LWGET (OBNEXT (obj ) ) ; 
LLSET (0B_SPEC(obj ) , obspec); 
redraw_do(tree, obj); 
break; 
case X_FWD: 

*ove_do(tree, obj, 1); 
redraw_do(tree, obj); 
break; 
case XBAK : 

«ove_do(tree, obj, -1); 
redraw_do(tree, obj); 
break; 
default; 
break; 

} 

return (FALSE) ; 



It- - ----•/ 

It hndl.dial tl 

It tl 

WORD 



hndl jJial (tree, def, x, y, w, h) 
long’ tree; 

WORD def; 

WORD x, y, w, h; 

t 

\ 

WORD xdial, ydial, wdial, hdial, exitobi; 

WORD xtype, l , j ; 

for®_center (tree, fcxdial, kydial, fewdial, khdial); 
f or»_di al <0, x, y, h, h, xdial, ydial, wdial, hdial); 
forn_dialU, x, y, w, h, xdial, ydial, xdial , hdial); 
objc_draw(tree, ROOT, f1AX_DEPTH, xdial, ydial, xdial, hdial); 
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FOREVER 



\ 

exitobj = f orffi_do(tree, de t ) & OxTFFF; 
x type = LWSET <OB_TYPE (exitobj)) & OxFFOO; 
if Cxtype) 

break; 

if (xtend_do(tree, exitobj, xtype > ) 
break; 

} 

forifi_dial(2, x, y, w, h, xdial, ydial, wdial, hdial); 
fom dial (3, x, y, w, h, xdial, ydial, wdial, hdial); 
return (exitobj?; 



a 1 / 

ft dr_code ti 

ft X! 

WORD 

dr_code(pparia) 

LONG ppar ms; 



PARMBLK pb; 

WORD p x y [ 103, hi, wb; 

LONG tad dr; 

LBCOPY (ADDR (fepb ) , pparss, sizeof (PARMBLK)) ; 
set_cl ip (TRUE, (GRECT X) ipb.pb_xc); 

taddr = pb . pb_p ar a ; 

user brush at db. *p = LL6EKBI .PDATAftaddr)); 
hi = LWBET (BIHL(taddr)); 
wb = LW6ET (BI_WB (taddr ) ) ; 
ii5erbrush_ftf db.fwp = wb « 3; 
userbrush_#f db.fww = wb >> 1; 
userbrush_»fdb.fh = hi; 
userbru5h_efdb,np = 1; 

U5erbrush_fcf db.ff = 0; 

px y [ 0 3 = pxy [ 1 3 = 0; 

pxy[23 = (wb « 3) - i; 

pxy[33 = hi - 1; 

pxy[43 = pb . pb x ; 

pxy [53 = pb.pb_y; 

pxy [63 = pxy [43 + pb.pb_w - 1; 

px y [ 73 = pxy [53 + pb.pb_h - 1; 

vrt_cpyf»(vdi_handle, 2, pxy,&u5erbru5h_»fdb,&5crn_ifdb, usercoior) 
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if { (pb.pb_currstate!=pb.pb_prevstate) ! ! (pb.pb_currstate&SELECTED) ) 

r 

\ 

if (pb. pbcurrstate fc SELECTED) 
vsl_color (vdi_handle, 1) ; 

e 1 5& 

vsl_color (vdi_handle,0) ; 
vs 1 i d th (vdi_handle, l); 
vsl_typeudi_handle, FIS_SOLID) ; 



pb. pb_x — ; 
pb. pb_y — ; 
pb.pb^va 4 -; 
pb.pb_h++; 

draw_rect ( (SRECT I) ipb.pb_x); 

} 

set_cl i p (TRUE, &pi ct work ) ; 
return (0); 



/ttttXttttUtUtttttttUtttttUUtttttttttXttUttttttttttUXttttttttttti 

/ttttttuttutttttttttttttttttttttttttttttutttttttttututtttttttttttt/ 
/tut tut/ 

ftUt Work Area Management 1111/ 

ittu tut/ 

intuuxuuttuxiuuuntxuuuuututtutuxxtxtuuuuutuun/ 
niuuuunuxxtutmuuuuuttuuuntxtittuutuiuuutitutt} 



it— 1/ 

It set_work t! 

n : 1/ 



VOID 

set_pict_work (si i der_update) 

BOOLEAN siider_update; /ledges, and updt sliders if req’d ti 

WORD i ; 



wind_get (pict_hndl , WFJiXYWH, 

&pict_*ork.g j,&pict_work.g_y,&pict_wQrk.g_w,&pict_«ork;.g_h) ; 

pict _undo.g_w = pict_work.g_w; 
pict_undo.g_h = pict_work.g_h; 

/ 11/ it clamp work area to page edges t/ 

pict_undo.g_x = align_x (pi ct_undo. g_x ) ; 

if ((i = pi ct_»+db . f wp - (pi ct undo. g_x + pict_undo.g_w) ) < 0) 
pict_undo.g_x +- i; 

if ( ( i = pict_ftfdb.fh - (pi ct undo. g_y + pi ct undo. g_h) ) < 0) 
pict_undo.g_y += i ; 



74 



if ( si i aer upd ate ) 

{ 

wind_set(pict_hndi, WF_HSL1DE, UMUL_DIV(pict_undo.g_x, 1000, 
pict_efdb. fwp - pict_undo.g_w) , 0, 0, 0); 
wind_set(pict_hndl, WFVSL1DE, U«UL _DlV(pict_undo.g_y, 1000, 
pict_«fdb.fh - pi ctundo. g_h ) , 0, 0, 0); 
wind_set(pict_hndl, WF_HSLS1Z, UHUL_DI V (pi ct^work . g_w, 1000, 
pict_ifdb.fwp) , 0, 0, 0); 

wind_set(pict_hndl, WF_VSLSIZ, UHULD1V (pi c t work . g_h , 1000, 
pict_afdb.fh) , 0, 0, 0); 



} 



!t only use portion of worMarea on screen 1/ 
rc_intersect (Itscrn area, ipict jiGrk) ; 
pi ct_undo. = pict_work.g_w; 
pict_undo.q_h = pi ctwor k . g_h ; 



VOID 

set_data_»ork (s) ider_update) 

BOOLEAN siider_update; /ledges, and updt sliders if req’d 1/ 

{ 

WORD i ; 

wi ndget (datahndl , WF_WXYWH, 

&dataj*ork.g_x,&data_work.g_y,kdata_work.g_w,&data_work.q_h) ; 



data_undo.g_w = data_work.g_w; 
data_undo.g_h = data_work.g_h; 

ftti It claisp work area to page edges X! 

tiatajindo.gjc = aligns <data_undo.g_x) ; 

if ((i s data_sfdb.f«p - (data_undo.g_x * data_undo.g_«)) < 0) 
data_undo.g_x +- i; 

if ((i = data_afdb.fh - (data_undo.g_y + data_undo.g_h) ) < 0) 
data_undo.g_y += i; 

if (si i der updat e ) 

{ 

wind_set (datahndl , WF_H5L1DE, UMUL_DiV(data_undo.g_x, 1000, 
data_afdb.fwp - data_undo.g_«) , 0, 0, 0); 
wir.d_setidata_hr.di, WF_VBLlDE f UMUL _DIV(data_undo.g_y, 1000, 
data_«fdb.fh - data_undo.g_h) , 0, 0, 0); 
wind_set(data_hndi, WF_H3LSIZ, UMJL_DIV(data_work.g_w, 1000, 
dataaf db . f «p) , 0, 0, 0); 

windset (datahndl , WF_VSLSIZ, UHUL_DlV(data_work.g_h, 1000, 
data_mfdb.fh), 0, 0, 0); 



3 
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It only use portion of work_larea on screen 1/ 
rcjntersect (&scrn_area, &data_Hcrk); 
data_undo.g_w = data_Horfc.g_«; 
data_undo.q_h = data_work.g_h; 



It- - tl 

It save_wcrk tl 

It : 1! 

VOID 

savepi ct_wor k ( ) It copy pict_work to pict_®fdb tl 



6RECT t«p_area; 

rc_copy (fcpict_wor k , &tap_area) ; 
rc_intersect(&scrn_area,fct®p_area) ; 
graf_»ouse(KJ)FF, OxOL); 

rast_op(3, itup.area, &scrn_sfdb, fcpictjindo, kpict_sifdb) ; 
graf_fflouse(H_ON, OxOL); 



VOID 

save_data_«orkO It copy data_work to data_afdb tl 

{ 

6RECT tap_area; 



rc_copy (fcdata_Mork,Sttffip_area) ; 
rc_intersect (&5crn_area,&tfip_area); 
graf _®ouse <M_0FF, OxOL); 

rast_op(3, lct«p_ar ea , &scrn_ifdb, &data_undo, &data_ifdb); 
graf_fiouse(l1_0N, OxOL); 



It- tl 

It restore_«ork tl 

It : tl 

VOID 

rst_pict_work() It restore pict_work fro® pict_afdb tl 

r 



BRECT t®p_area; 
rc^copy(kpict_work,it*p_area) ; 
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rcjntersect (kscrn_area,&-.t*p_area) ; 
gra-f _mouse (M_OFF, OxOL); 

rast_op(3, &pict_undo, Spict_*fdb, &tfflp_area, &scrn_ffifdb) ; 
graf_*ouse(M_GN, OxOL); 



VOID 

rst_data_work() It restore data_work fro* data_»fdb 1/ 

{ 

GRECT tap^area; 



rc_copy(Sdata_work,£tflp_area) ; 
r c_i nt er sect Utscrn_area, let *p_area) ; 
graf_aouse(M_QFF, OxOL); 

r ast op (3, &dat a undo, ltdata_*f db, Set mp^area ? &scrn_ifdb); 
graf _*ouse(H_0N, OxOL); 



/mmimmmmiimiimmimimmmmmmmmmmm/ 
/mmmmmmmmmmmimmmmmmmmmmmm/ 
ixtn mi/ 

/III! Object Tree Manipulation lilt/ 

/mi mt / 

/ittiiiiittiiiiiiiiimmmmimmmmmmiitmmmmimt/ 
immimmmmimmiimmimimiimmimmmmmm/ 



ix — 1 / 

IX do_obj 1/ 

IX XI 



VOID 

do_obj (tree, which, bit) It set specified bit in object state XI 

LONG tree; 

WORD which, bit; 

{ 

WORD state; 

state = LWGET(QE_STATE(which)); 

LW3ET ( 0B_STATE (which) , state I bit); 



It - - 1/ 

It undo obj 1/ 

/I- : —I / 



VOID 

undo_obj (tree, which, bit) It clear specified bit in object state 1/ 
LONG tree; 

WORD which, bit; 
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/ 



WORD state; 



state = LW6ET <OB_STATE (which) ) ; 
LHSEKOB.STftTE (which), state l rv bi t) ; 



it - */ 

ft sel_obj t! 

it : */ 

VOID 

sel_obj (tree, which) it turn on selected bit of spcfd oDject tf 

LONG tree; 

WORD which; 



do_obj (tree, which, SELECTED); 

} 



it - tf 

it desel_obj tf 

It tf 

VOID 

desel_obj (tree, which) It turn off selected bit of spcfd object!/ 

LONG " tree; 

WORD which; 

r 

V 



undoj)bj (tree, which, SELECTED); 

} 



ft tf 

It enab_aenu tf 

it t! 

VOID 

enab_senu(which) it enable specified menu itea tf 

WORD which; 

{ 



undo_obj (gl_»enu, which, DISABLED); 

} 



it tf 

ft unflao_obj if 

it — - — - — -»/ 

VOID 



unt 1 ag_ob j (tree, which, bit) 

LONS ’ tree; 

WORD which, bit; 

{ 

WORD flags; 

flags = LWEET (QB_FLAGS (which)); 
LWSET(OB_FLAGS (which), flags it 'bit); 
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ft ti 

ft flag_cbj tf 

ft : - if 

VOID 



f lag_obj (tree, which, bit) 

LONG tree; 

WORD which, bit; 

{ 

WORD flags; 

flags = LWGET(QB_FLAG5 (which)); 
LWSET(GB_FLAGS (which), flags } bit); 



/*-- - tf 

ft indir_obj tf 

ft tf 

VOID 



indir j>bj (tree, which) 

LGNG tree; 

WORD which; 

{ 

f lag_obj (tree, which, INDIRECT); 

} 



ft- tf 

ft di r _ob j tf 

ft - : 1/ 

VOID 



di rob j (tree, which) 

LONG tree; 

WORD which; 

{ 

unf lag_obj (tree, which, INDIRECT); 

} 



/* tf 

ft get_parent tf 

ft tf 

ft 



t Routine that will find the parent of a given object. The 
i idea is to walk to the end of our siblings and return 

t our parent. If object is the root then return NIL as parent. 

tf 

WORD 

get _parent (tree, obi) 

LONG tree; 

WORD obj; 

r 



79 



WORD pobj; 



if iobj " NIL) 
return (NIL); 

pobj = LWGET iOB_NEXT (obj ) ) ; 

if (pobj != NIL! 

/ 

X 

whi 1 e ( LWGET (OB TAIL (pobj > / '= obj ) 
{ 

obj = pobj; 

pobj = LWGET (QB^KEXT (obj ) ) ; 

i 

} 

return (pobj) ; 



ft - I / 

ft objcjywh if 

ft Z — M 

VOID 

ofc jc_xywh (tree, obj, p) it get x,y,w,h for specified object t / 

LONG tree; 

WORD obj; 

GRECT Ip; 

( 



objc_oftset (tree, obj, &p->g_x t &p->g_y); 
p->g\ = LWGET (GB_WIDTH (ob j ) T; 
p-)g_h = LWGET ( 0 B_HEIGHT (obj > ) 5 



immmniummnmmimnnmif nmumtmmmt mmi 
/miiiiiiuiiiitiiiiiiiiiiiiiiiiiiitiiiiiiiiimimiiitiiiiimiiim/ 
/nit 1111 / 
/llll Fiie Path Naae Functions 1111 / 
/till 1111 / 
/iiiiiiiiiiiiiiiiimiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiumii/ 
/mmiiuitiimmmtiiiimiiiimiiiiimiiiiiimiiiiiiiiiiiim/ 



it 1/ 

it dial_naff!e 1/ 

ft 1/ 

WORD 

dial _na*e ( name ) ft dialogue box input filename I / 

BYTE Inase; 

{ 

LONG tree ; 



LONG t edaddr ; 
BYTE c 
WORD 1, j; 
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GRECT box; 



ob j c xywh ( g I aenu , SUREFILE, Itbox > ; 
rsrc_gaddr( RjREE, SURESVAD, fctree) ; 
ted_addr = LLGET (0B_SFEC (SURENAhE) ) ; 

LLSET ( ted_addr, ADDR (name ) ) ; 

LWSEK TEJXTLEN(ted_addr),B>; 
name E 0 3 =' 7 \0 7 ; 

it (hndl _di al ( tree , SURENAME , box . g_x , box . g_y , box . g_w , box . g_h ) ==SURES0K> 
{ 

i = 

j = 0; 
while (TRUE) 

{ 

c = nase[i++]; 
if ( ! c ) 
break ; 

if ( (c != 7 M tfc (c ! = ) 

na*e[j++] = c ; 

} 

if ( Inase ) 

strcpy( fcnaaetj], B .DDG U ) ; 
desel _cb j (tree, SURESQK); 
return (TRUE); 

else 

r 

desel j)bj (tree, SURESCNL); 
return (FALSE); 

} 

} 



/*- - 1 / 

It get_path t! 

It - tl 

VOID 

get _path (t ®p_path , spec) ft get directory path naae if 



BYTE ttnp_path, tspec; 

{ 

WORD cur _drv; 

cur_drv = dos_gdrv() ; 
tap_path[Q] = cur_drv 4 ? A 7 ; 
tap’pathm = 7 : 7 ; 
tap_path[21 - 7 W; 

do5_gdir (cur_drv+l, ADDR(it*p_pathE3])) ; 
if (strlen(t«p_path) > 3) 
strcat (tep_path, B \\ fl ); 

else 
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} 



t(8p_pathC2] = ’Y0 J ; 
strcat (tapjath, spec); 



It 1/ 

It add_f ile_naae %f 

It ~ ------ 1 / 

VOID 



addf i 1 e_na»B (dnane , fnaae) It replace name at end of input file spec!/ 
BYTE tdnaae, If name; 

{ 

BYTE c; 

WORD i 1 ; 



ii = strlen(dnase); 

while (ii M ( ( (c = dnaaeCii-H) != ’W) U (c != V))) 
ii 5 

dnase[ii] = ' \0’ ; 
strcat (dnafte, fnaae); 



It- tf 

ft get_file t! 

It- : - 1/ 

WORD 

getjfile(loop) It use file selector to get input filet/ 

BOOLEAN loop; 

/ 

\ 



WORD fsj exbutton; 

BYTE f s”i insel C 13 ] ; 

while (TRUE) 

{ 

get J3ath(file_na#e, B t.D00 a ); 
f si i nsel COT = ? \G , j 

f sel_input(ADDR(f ile_naae) , ADDR (f s_i insel ) , kfsjextmtton) ; 
if (fsjexbutton) 

{ 

add_file_na*e(f ilejianE, fsj insel ) ; 
file_handle = dos_open(ADDR(file_naffie),2); 
if ('loop ! ! (ioop M !D0S_ERR) )~ 
return ( 1 ) ; 

} 

else 

return (0); 

} 



82 



t 



} 



ft get i 1 e t! 



/immmimiiiimiiiitmumuiiiimnitmmiiimtimiiiiii 
/timmimittiumtmtttimitmtm*iimitttititittiiitiimiti/ 
/mi mi/ 

/llll Soft Cursor Support lilt/ 
/III! 1111/ 
/iitiiitiitittttimttitimiiiiiiiiiiiiiittiiiiiiiiiiitiiiiiiititiiiii/ 
/iiimimitiiiiiiiiimiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiu/ 



/i— - -1/ 

It cursor t/ 

/I- 1/ 

VOID 

cursor (color) /I turn cursor on, col or=BLACK 1/ 

WORD color; It or cursor off, cclor= WHITE I / 



WORD pxyC43; 

pxytO] = keyjcurr + l; 
pxy C 1 3 = key_ycurr + ql_hspace; 
pxyC21 = keyjtcurr + 1; 
pxy[31 = key_ycurr - gl hbox ; 

vsl_color <vdi_handle, color ) ; 
vswr jsode(vdi_handle,!1DJiEPLACE) ; 
vsljype (vdi_handle,FIS_SOLID) ; 
vsf width (vdi ^handle, PEN_FINE) ; 
graf_ffiouse(K_OFF, OxOL); 

wind_get (picthndl ,WF_TOF',kurr_hndl, 0,0,0) ; 



if (curr_hndl == pict_hndl) set_dip(TRUE, ipict^work); 
if (curr_hndi == data_hndl) set _cl i p (TRUE, &data_work); 
v_pl ine<vdi_handle, 2, pxy ) ; 



if (curr_hndl == pict_hndl ) set_chp (FALSE, &pict_work); 
if (curr_hndl == data_hndl ) set_cl ip (FALSE, &data_work); 
graf_souse(l1_0N, OxOL); 
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It - */ 

It curs on t! 

It : */ 

VOID 

curs_cn ( ) It turn ’soft’ cursor ’on’ t! 

{ 



cursor (pen_shafle) ; 

1 



It tl 

It curs_oH tl 

It 1! 

VOID 

curs_aff() It turn • sot t ' cursor ’oft’ 1/ 

{ 



cursor (PEN_ERASER) ; 



/uuuuuuuuuuuuutuuuutututuuuuuuuuuuuuuui 
nnimmiutmtnututmtnnnutmutmnttttunmtmmw 
inn uu/ 

nut Menu Handling Util 

iitit tut/ 

/uimtittninnmmtnmntututtimnttiumttmunmnmi 
fttttnttuuiitnmuututiutuiiitttutttuiuuuuuttuuuuu/ 



n -~-t/ 

It h n d 1 _ffi9P,u tl 

!t tl ft curr_hndi is known i i 

called trcffi hndl_®sg tl 
WORD 



hnril sienu (title, item) 

WORD title, item; 

WORD done; 

6RECT box; 

LONS tree; 

graf _mouse (ARROW, OxOL); 
done = FALSE; 
switch (title) ( 

case SUREDESK: ft senu selection name-DESK 1/ 

it (ites == SUREINFG) 
doabout 0; 
break; 

case SUREFILE: It tenu selection name-FILE tl 

switch (iter?) 

r 

V 
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It aenu selection naise-ABANDQN 1/ 
open (ADDRtf ile_naae 1,2); 



It aenu selection naae-LQAD t / 



It aenu selection naae-SAVE if 



It aenu selection name-SAVE A5 t! 



case SURELOAD: 

do_load (TRUE) ; 
break; 

case 5URESAVE: 
do_save(); 
break; 

case SUKEBVAS: 
do_svas() ; 
break; 

case SUREABAN: 

file_handle = dos 
do Joad (FALSE); 
break; 

case SURESU IT : 
done = TRUE; 
break; 

j 

case 3CR0PTS: 

switch (itea) 

( 

case SUREPENS: 

dopense I ect ( ) ; 
break; 

case SUREERAP: 
dc_erase() ; 
break ; 

case VIEWITEK: 
dovi ew ( ) ; 
break; 

} 

case SUREOPTE : 
switch (itea) 

{ 

case SUREPLOT: 
do_plot0 ; 
break; 

case SURECOfSP : 
do_cospute() ; 
break; 

case SUREHARD: 

dc^har dcopy 0 ; 
break; 

case SLOWTRAN: 

do_sl owtransitionO; 
break; 

case FASTTRAN: 

dcJast_transition() ; 
break; 

case SURESTAT: 
dost ates ( ) ; 



It aenu selection naae-QUIT tl 

It aenu select naae-SCR-GPTIONSt/ 
ft aenu select naae-PENS/ERASERI/ 
It aenu selection naae-ERASE tl 
It aenu selection naae-VIEN ...1/ 

It aenu naae-SURE-DPTIQNS tl 
It aenu nase-REL I ABILITY PLOT tl 
ft aenu naae-COMPUTE tl 
It aenu naae-HARDCOPY tl 
It aenu naae-SLOW TRANSITION tl 
It aenu naae-FAST TRANSITION tl 
It aenu naae-ENTER STATES tl 
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ft /term naffie-ENTER CONSTANTS if 



break; 

case BURECONS: 

do_constants() ; 
break; 

i 

/ 

} 

i*enu_tnor®al (gl_fienu, title, TRUE) ; 
graf_fiouse((sonu«!ber, scfaddr); 
return (done); 



It ti 

It do_about if 

It 1 / 

VOID 

do_about() It display SURE Info... if 

{ " 

LONG tree; 

GREET box; 



objc_xywh(gl_senu, SUREDESK , l<box ) ; 

rsrcjaddr (R_TREE, SUREINFD, fctree); 

hndl_dial (tree, 0, box.gjc, box . Q_y , box.g_w, box.gj); 

desel^obj (tree, SUREQk); 



it - ti 

It do_view 1/ 

it : a 

VOID 

dovi ew ( ) it display zooeing available M 

{ 

LONE tree; 

GREET box; 



set_cIip(TRUE, fcpictjjndo); 

objc_xywh(gl_ienu, SUREDESK, ibox); 

rsrcjaddriRJREE, FITDIAL, &tree); 

hndl_dial (tree, 0, bcx.g_x, box.g_y, box.g_w, box.g_h); 

desel_obj(tree, FITOK); 

for fcurjit = FULLITEW ; 

( ! (LWGET \ 0B_STATE( cur Jit ) ) l SELECTED) ) ; 
cur_fit++ ) 

* 

It set_xfcrssO ; 

set_clip( TRUE, &pict_work_area ) ; 
rdr_*esg ( ) ; 1/ 

set_cl ip (FALSE, &pict_undo) ; 

} It bo_view XI 
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/ i 1/ 

it do_l oad Xi 

ft : 1 / 



VOID 


it 


curr 


hndl is 


known Xi 


do_loadSneed_na*e) 


it 


load 


file 


Xi 



BOOLEAN need_naie; 

{ 

if (!need_naae i! get_f i 1 e (TRUE ) ) 

( 

if ( 1 DOS^ERR ) 

{ 

dos_read(f ile_handle, size _pict_sf db, loc_pict_»fdb) ; 
dos_reari(f ile_handle, size_data_®fdb, 1 ocdatamt db) ; 



do£_close(f ile_handle) ; 
enabmenu (SURESAVE) ; 
enab_«ena (5UREABAN) ; 
rst_pict_work 0 ; 
rst_data_work 0 ; 

} 



/I — Xi 

it do_save 1/ 

z, — : 1/ 

VOID 

do_save() it save current nased SURE picture I / 



windjet (pi c t_hndi , WF^TOP, Securr _hndi ,0,0,0) ; 
if (If i 1 ename) 

{ 

tilejiandle = dos open (ADDR (t i 1 e_na®e) ,2! ; 
if (DOSJRR) 

file_handle = doscr eate (ADDR <f i 1 e_na*e> , 0) ; 
else 
{ 

if (tors_alert(i, stringaddr (SUREOVWR) ) == 2) 
return; 

} 

dos_write(file_handle, size_pict_*fdb, loc_pict_af db) ; 
dos_wnte(file_handle, size_data_«fdb, !cc_data_*f db) ; 
enab_*enu (SURESAVE) ; 
enab^i)enu(SUREABAN) ; 
dos_close(f i 1 ehandl e) ; 
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It tl 

It do_save_as 1/ 

It— 1 1/ 

VOID 

da_svas ( ) It save SURE picture as named 1/ 



BYTE naseC 133; 

H (dial_na«e(ina«eCO]) ) 

( 

add_-file_nai&e (+ile_na»e, name) ; 
dc_save(); 

} 



It- ii 

it set_pen t / 

It - 1/ 

VOID 



set_pen (pen, height) 

WORD pen, height; 

t 

\ 

SURE_pen = pen; 

SURE hei ght - height; 
fconuffiber = 5; 
eofaddr = OxOL; 

} 



It - -tl 

It set_eraser tl 

It : if 

VOID 



set_eraser (pen, height, eraser) 
WORD pen, height; 

BYTE leraser; 

{ 

SUREpen = pen; 

SURE^hei ght = height; 
SURE^shade = PEN_ERASER; 
sonusber = 255; 
aofaddr = ADDR (eraser ) ; 



it -a 

It set_color tl 

It : tl 

VOID 



set_color (tree, obj, col or _nua, bind) 
LONG tree, tbind; 

WORD obj, CDlor^nua; 
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set.select {tree, obj, color.nua - 1, bind, color_sel); 



ft if 

ft get. color il 

it-— : a 

WORD 



get _col cr (tree, obj) 

LONG tree; 

WORD obj; 

r 

i 

return get.select (tree, obj) + 1; 

} 



/I- - tf 

ft do.penselect if 

it tf 

VOID 

do.penselect 0 ft use dialogue box to input selection tf 

{ ft of specified pen/eraser tf 



WORD exit. obj, psel.obj, color; 

LONG tree, bi ndC2] ; 

GRECT box; 

set_cl i p (TRUE, fcpict.undc); 

°b jc^xywh (gl _aenu, SUREPENS, fcbox!; 
rsrc~gaddr ( R~TREE, SUREPEND, itree); 

fttf ft first setup current selection state!/ 

switch (SURE.pen) { 
case PENNINE: 

sel .obj (tree, (SURE.shade j = PEN.ERftSERJ? 

SUREPFIN: SUREEFIN); 
radius = 10; 
break; 

case PEN.HEDIUH: 

sef obj (tree, {SURE.shade != PEN.ERASER1? 

SUREPHED: SUREEMED); 
radius = 16; 
break; 

case PEN.BROAD: 

sef obj (tree, (SURE.shade ,= PEN. ERASER)? 

SUREPBRD: SUREEBRD); 
radius - 20; 
break; 

) 

set.coloritree, DEMOPCLR, pen. shade, bind); 

fttf ft get dialogue box input tf 

exit.obj = hndl . dial (tree, 0, box.g.x, box.g.y, box . y.w , box.g.h); 
for (psel.obj = SUREPFIN; psel.obj <= SUREEBRD; psel obj ++) 
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if (LWGET (GE i _STATE(p5ei_oDj ) ) k SELECTED) 

{ 

desei_obi (tree, psel _ob j > ; 
break; 

/ 

color = oet_color (tree, DEHQPCLR); 
if (exit.obj == SUREPSDK) 

r 

switch (psel_obj) ( 
case SUREPFIN: 

set_pen (F'EN_FINE, char_fine); 
SURE_shade = color; 
break; 

case SUREPHED: 

set _pen (PEN_KEDIUR, char_§edi ua) ; 

SURE_shade = color; 

break; 

case 3UREPBRD: 

set_pen(PEN_BROAD, char broad > ; 

SURE_shade = color; 

break; 

case SUREEFIN: 

set_eraser (PEN_FINE, char fine, 
(BYTE J) erase_fine); 
break; 

case SUREEHED: 

set_eraser (PEN_MEDIU(1, char_fteriiu», 
(BYTE I) erase_ftediuffi) ; 
break; 

case SUREEBRD: 

set_eraser (PENJRDAD, char_broad, 
(BYTE t) erase_broad) ; 
break; 

} 

pen_shade = color; 
desel _ob j (tree, SUREPSQK); 

i 

else 

desel _ob j (tree, SURECNCL); 
set_clip (FALSE, ipict_undo) ; 



ft 

ft do_erase 

ft : 

VOID 

do_erase ( ) 

{ 



if 

if 

if 



ft clear the 'picture' and 'data* buffer (afdb's) 
and re-init. the screen if 
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GREET t*p_area; 



tffip_area.y j = 0; 
tmp_srea. g_y = 0 ; 
tiTip_area.q_w = pict_*fdb. tup; 
tap_area.g_h = pict_»f db.fh; 



ra 5 t_op( 0 , fct»p_area,&pict_*fdb,fct«p_area,ipict js+db) ; 

tmp_area.g_w = data_*f db . -f wp ; 
tffip _ar ea . g _h = data_ffif db.fh; 

ra 5 t_op( 0 ,kt»p_area,fcdata_ffdb,litBp_area,&data_fifdb) ; 

rst_pict_work 0 ; 

rst_data_*ork(); 

init _data() ; 

nuffi^states = i; 

ydata = 1 ; 

} 



/unu; uunuuHUUUUuuuuuuuuuHuuuiu mutt uuui/ 
/muiuunmumumnuuumuuuuuuuuumuumuuu/ 
ftttt uttf 

/HU Keyboard Handling ttttl 

Ititt Uttf 

/nnutuunnmuuunuuuuuuuuuuuuuuuuuuuuuu/ 

/UtUttUUUttUtUUtttUttUttttttttttUttttttUUttUUUUttttttt/ 



!t t! 

ft hndi ^keyboard tl 

ft ------- ti 

WORD 

hndi ^keyboard 0 



WORD l ; 

BYTE sir [ 23 ; 

6RECT Ittr, test; 

if ((str[Q] = kreturn) == 0x03) 
r e-turn (TRUE) ; 
gra-f _^ouse (!i_0FF, OxOL); 
if (Ikeyjnput) 

{ 

vswr_aode (vdi handle, MD_REPLACE) ; 
vst_color (vdi_handle, pen_shade) ; 
vst _hei ght ( vdi handl e, SURE_hei qht , 

&g i_wchar , fcg!_hchar , fegl _wbox , 1 _hbox ) ; 
gljspace = gl_hbox - gl_hchar; 
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v 5 t_aiignnent(vdi_handle, 0, 0, &i, &i ) ; 
graf_ftkstate(&key_xbeg, &key_yheg, &i, ki); 
key_xcurr = ++key_xbeg-B; 
kev_ycurr = — key_ybeg+4; 

) 

else 

curs_of f 0 ; 
str [II = 7 \0 ? ; 
it (str EC*] == OxlA) 

r 

savepictworkO; 
graf_sou5e(H_QN, OxOL); 
returr>(key_input = FALSE); 

} 

else 

it (str E 03 == OxOD) 

{ 

ksy_ycurr += gl_hbox + glhspace; 
key_xeurr = key_xbeg; 

} 

else 

if (str C03 == 0x06) 

{ 

if (key_input && (key_xcurr '= key_xbeg)) 
{ 

for (i = 0; i ( gl_wbo>:j i++) 

{ 

key_xcurr — ; 
curs_of f 0 ; 

1 

/ 

} 

else 

if ( (str EDI >= ’ ? ) to (strCO] <= VM 
{ 

!ttr.g_x = key_xciirr; 

1 ttr . g_y = key_ycurr - gl_hbox; 

1 tt r . gw = gl_wbox; 
lttr.gh = gl_hbox; 
rc _copy(&lttr, Iciest); 
rc_intersect (lcpict_work, iciest) ; 
if (!rc_equal (fclttr, Ift est ) ) 

( ’ 

graf_souse(H_ON, OxOL); 
return (FALSE); 

se t_c 1 ip (TRUE, Itpi ct _wor k ) ; 
v_gtext (Ydi_handle, key_xcurr, 
key_ycurr, str); 
set_c I i p (FALSE , lcpict_wor k) ; 
key_xcarr += gI_«box; 
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} 

if (!key_input) 

{ 

keyjnput = TRUE; 

> 

curs_on() ; 

grat_«ouse{M_ON, OxOL); 
return (FALSE) ; 



inHnmnmmunmunmnnnnumnuummumuuim/ 

itntntttttttttttttttttttttttttttttttittttttmtntnnmttttittnmi 

/tut tut/ 

/It 1 1 Message Handling lilt/ 

/tut tut/ 

itttmtttttttttttttttttttttttttttxttttttttttttttttttttntttttttttttttti 

luuntnnmmnnttnmtnnnunnntummmmtiutmuw 



it 1 i 

It hr.Ql_ftsg XI 

it - : 1 / 



/1HLCCALI/ BOOLEAN hndl.asgO 
{ 

BOOLEAN done; 

GRECT work; 

done - FALSE; 

curr_hndl = wind_find(aou5ex,iiousey); 
if ( curr_hndl rr pict_hndi ) 

{ 

rc_copy (Stpict_undo,kurr_undo) ; 
rc_copy (&pict_work,kurr_work) ; 
curr_afdb.fwp = pict_ftfdb.fwp; 
curr_«fdb.fh = pi c db.fh; 

} 

if ( curr_hndl == data_hndl ) 

( 

rc_copy ( Stdat aundo , ^currundo) ; 
rc_copy (kata_work,kurr_work) ; 
ciirr_»fdD.f«p = data_ftfdb.fwp; 
curr_«fdb.fh = data_mfdb.fh; 
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switch! gl_rftsg[03 i 

/ 

case HNiJELECIED: 

done = hnd!_«enu(gl_rii5g[3],gi_rssg[4]) ; 
break; 

case WIREDRAW: 

do_redraw(gl_r»sg[33, (BRECT 0 leg! rmsQ C 43); 
break; 

case WK_T0PPED: 

wind_set(gl_rffisg[3], WF_T0P, 0, 0, 0, 0); 
break; 

case WMCLOSED : 
done = TRUE; 
break; 

case M.FULLED: 

do_-ful) (curr_hndl ) ; 
break; 

case WM_ ARROWED: 

switch <gl_r*sgC43) 
case WAUPFAGE : 

curr_undo.g_y = aax (curr_undc.g_y - curr_undo.g_h, 0 
break; 

case WAJNPAGE: 

curr_undo.g_y += curr_undo.g_h; 
break; 

case WA_UPL!NE: 

curr_undo.g_y = aax(curr_undo. g_y - YSCALEdb), 0); 
break; 

case WA_DNL1NE: 

curr_undc.g_y += YSCALE ( 16) ; 
break; 

case WALFPAGE: 

curr_undo.g_x = *ax (curr_undo.g_x-curr_undo.g_w, 0); 
break; 

case WA_RTPASE: 

curr_undo,g_x += curr_undo.g_w; 
break; 

case WA_LFLINE: 

curr_undo.g_x = sax (curr_undo. g_x - 16, 0); 
break; 

case «A_RTLINE: 

curr_undo.g_x += 16; 
break; 

i 

i 

if ( curr_hndl == pict_hndl ) 

r 

X 

rc_copy(kurr_undo,ipict_undo); 
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set_pict_work(TRUE)j 

rst_pict_nork(); 

} 

it ( curr_hndl == data_hndl ) 

{ 

rc_copy(kurr_undo,yata_undo) ; 
set_data_wor k * TRUE) ; 
rst_data_work(); 

) 

break; 

case WH_HSLID: 

curr_undo.g_x = al ign_x (UMUL_DIV(curr_*fdb. i wp - curr_undo, g_w, 
gl_risgC4], 1000)); 

if ( curr _hndl == pi ct hndl ) 

{ 

pict_urido.gj = curr_undo.g_x; 
set_pict_work (TRUE) j" 
rst_pict_*ork 0 ; 

) 

if ( curr_hndl == data_hndl ) 

{ 

data_undo.g_x = curr_undo.g_x; 
set_data_worMTRUE) ; 
rst_dat a_work () ; 

) 

break; 

case WMSLID: 

curr_undo.g_y = UMUL_DIV(curr_*f db. f h - curr_undo.g_h, 
gl_r®sgC43,1000); 

it ( cur r_hndl == pict_hndl ) 

{ 

pict_undo.g_y = curr_undo.g_y; 

set_pi ct_«or k (TRUE) ; 

rst _pict jnorkO; 

* 

i 

it ( curr_hndl == data_hndi ) 

{ 

data^undo. g_y = curr_undo.g_y; 
set_data_wor k (TRUE) ; 
rst_datd_work(>; 

) 

break; 
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case HM.SI2ED: 

car r_hndl = wmd_find (iousex,»ousey) j 
if (curr_hndl == pict_hndl) 

{ 

wi nd cal c < 1 , OxOfef, gl_risg[4], gl_r&sg[5], gl_rssg[6], 

gl_r®sg[7],&pict_wark.g_x,fcpict_work.g_y,&pict_work.g_w, 
Sepictwork. g_h) ; 

pict_work.g_x = align_x (pict_work.g_x) ; 
pict_work.g_w = ali gn_x (pict_work.g_w) ; 
wind_calc (0, OxOfef ,pict_«ork.g_x,pict_Hork.g_y,pict_Mork.g_w, 
pict_«ork.gji,&gl jisg[4],&gl j-*sg[5],&gl_r*sg[6] !l &gl_rftsg[73); 
wind^set (pict_hndl , WF_CXVWH, gl_r«sgC4J , 
gl_msg[j], gl _r®sgC61 , gl_risg[73) ; 

} 

break; 

case WK_M0VED: 

curr_hnd! = wind_find (#ousex,*ousey); 
if(curr_hndl == p 1 ct^hndl ) 

{ 

gl_rasg[4] = al ign_x <gl_r»sgC4]> ; 

wind_set (pict_hndl~ HF.CXYWH, align _x tgl_r*sg[4]) - 1, 

gl_rifisgij], gl_rssg[63, gl_rasgC73); 

/ 

break; 

} ft switch tl 
return (done) ; 

} ft hndl_asg tl 



ft- tl 

it do_redraw tl 

It ’ tl 

VOID 

do_redraw(wh, area) It redraw specified area from undo bfr tl 

WORD wh; 

ERECT t a r e a ; 

{ 

ERECT box; 



ERECT dirty_source, dirty_dest; 
grat _®ouse (H_0FF, OxOL); 

wind_get(wh, WF_FI RSTX YWH , l«bo>: . g_x , &box.g_y, &box.g_w, &box . g_h) ; 
while ( box.g_w && box.g_h ) 

i 

if (rcjntersect (area, &box)) 

{ 



if ( wh == pi ct _hndi ) 

{ 

rc_copy(&box, fcdirty_dest); 
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if (rcjntersect (&pict_work, &dirty_dest} ) 

{ 

dirty^source- g_x = (dirty_dest.g_x - pict_work.g_x) 
+ pict_undo.g_x; 

dirty_source.g_y = (dirty_dest.g_y - pict_work.g_y) 
+ pict_undo.g_y; 

dirty_source.g_w = dirty_dest .g_w; 
dirty_scurce.g_h = dirty_dest.g_h; 
rast_op(3, &dirty_source, &pi ct_nf db, 
fcdirtyjlest, £scrn_*fdb) ; 

} 

} 



if (wh == data^hndl ) 

/ 

L 

rc_copy(&box, &dirty_dest); 
if (rcjntersect (fcdata_work, fcdi r ty^dest ) ) 

{ 

dirty_source.g_x = (dirty_dest. g_x - data_work. g_x) 
+ data_undo.g_x; 

dirty_source.g_y = (dirty_de5t. g_y * data_work. g_y) 
+ data_undc.g_y; 

dirty_source.g_w = dirty_dest.g_w; 
dirty_source.g_h = dirty_dest.g_h; 
rast_op(3, kdirty_source, &data_sfdb, 

!tdirty_dest, &scrn_Bfdb); 

} 

} 



wind_get(wh, WF_NEXTXVWH, &oox.g_x, Scbo^ . g_y , &box.g_w, Jcbox.g_h); 

/ 

graf_»ou5e(K_QN, OxOL); 



It - M 

it dojull I / 

It M 

VOID 



do_full(wh) It depending on current window state, either sake window!/ 

WORD wh; It full size -or- return to previous shrunken size tl 

{ 

GRECT prev; 

GRECT curr; 

GRECT full; 

graf _souse (M_QFF,0x0L) ; 

wind_get(wh, WF^CXYWH, fccurr.g_x, kurr.g_y, lecur r . g_w, fccurr.g_h); 
wi nd get ( wh, WF_PX YWH, &prev.g_x, fcprev. g_y , &prev.g_w, fcprev.g_h); 
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* 




wind_qet (wh, WF_FX YWH, &full.g_x, fitful 1 . g_y, &full.g_w, fitful 1 . 9 _h) ; 
if ( rc_equal (fccurr , fitful 1 1 ) It is full now bo shrink it % / 
f 

graf_shrinfcbox (prev. q_x , prev.g_y, prev.g_w, pr ev . q_ h , 
full.gj, full . Q_y , full- g_w, full. Q_h) : 
wind_set(wh, WF_CX YWH, prev. g_x , prev - Q_y , prev.gj*, prev.g_h); 

if ( wh == pict_hndl } 

{ 

rc_copy(lfpict_prev_undo,fifpict_undo) ; 
set_p l ct_wor k (TRUE) ; 

if ( wh -- data_hndl) 

{ 

r ccopy (Scdataprevundo, fi(data_undo) ; 
set _daU_work() ; 

if ( (pr ev , g_>; == full. g_K ) && (prev.g_y == full.g_y)) 

if ( wh == pic t_hndl ) do_rearaw(wh, fepi c t_work 5 ; 
if ( wh == data_hndl ) do_redraw(wh, adata_work); 



else It is not full so sake it full 1/ 



if (curr_hndl == pict_hndl) rc_copy (ficpi ct_undo, fitpi ct_prev_undo) ; 
if (currjindl == datajindl) rc_copy(&data_undo,&data_prev_undo) ; 

graf _growbox (curr.gj, curr,g_y, curr.g_w, curr.g_h, 
full.gj, full. g_y , full.g_w, full.g_h); 
wind_set (r»h, HF^CXYHH, full.gj, full.g’y, full.g'w, full -g_h) ; 
if \curr_hndi == pict_hndl) set _p i c t_wor k (TRUE) ; 
if (curr_hndl == data_hndl) set_dat a_wor k (TRUE) ; 

s 

gr af _souse (M_GN , OsOL) ; 
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/muummntmumuummtmtummmmmmtumtm!/ 
/mutmtmmtmmtmsimmtmmumtmmumtmtmm/ 
/tttt tttt/ 

/tttt House Handling ttttf 

/tttt tttt/ 

iittttttttttttttttttttutttttttttitttttttittttttttttttttntttttitmttti 

/tttttttttttttttmtttttttttttttttttttttttttxtttttttttttttttttttuttttti 



it-— - ti 

It hndl_*ou5e t/ 

it ti 

WORD 

hndl jiouseU 
{ 

BOOLEAN done; 



if (s_out) 

graf_icuse (ARROW, OxOU; 

else 

graf^ftousetftonuffiber, aotaddr); 

ft _ out = layout; 
done = FALSE; 
return (done ) ; 



ititttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttti 
/ttttttttttttntttttttttttttttttttttttttttttttttttttttttttttttttttttttti 
/ tttt tttt! 
/tttt Button Handling tttt I 
/tttt tttt i 
ftttXttttttttttttUtttttttttttttttttttttttttttttttttttttttttttttttttttti 
/utttttttttttttttttttttttttttttttttttttttttttttttttttxtttttnttttttttti 



it - 1 / 

It drawjencil t/ 

/t —t! 

WORD 

draw_pencil ix, y) 

UWORL x, y; 

r 

\ 



UUORD pxy[43 ; 

WORD done; 

UWORD ftfiags; 

UWORD loccunt, hicount; 

UUORD ev_which, bbutton, kstate, kreturn, breturn; 
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set_cl ip (TRUE, kurr_work); 
pxyCO] = x; 
pxy[li = y; 



vsl __coI or (vdi_handie,5URE_shade) ; 
vswr jicde(vdi_haridIe,HD JEPLACE) ; 
vsljype (vdi_handIe,FI S_B0L ID) ; 



if (SURE.shade ! = PENJRASER) 

r 

\ 

vsl width ( vdi _handl e, SURE^pen-2) ; 
vsl_ends(vdi Jandle, 2, 2); 
hi count = 0; 

Iocount = 125; 

•flags = MUJUTTON ! HUJ11 ! HUJIMER; 
grafioase (M_0FF, OxOL); 

} 

else 

{ 

vsf _interior(vdi Jandle, 1); 
vsf "color (vdi ^handle, WHITE); 
mi lags = MUJUTTON ! MUJ.i; 



dene = FALSE; 
while (’done) 

r 

\ 

ev_which ~ evnt jwlti (*f lags, 

0x01, 0x01, 0x00, 
l, pxyCO], pxyCl], 1, 1, 

0 , 0 , 0 , 0 , 0 , 
ad_rmsg, Iocount, hicount, 
fcpxy[2], fcpxy[3], ibbutton, ikstate, 
fckreturn, Stbreturn); 

if f ev which k MUJUTTON) 

r 

l 

if ( ’ (mf lags & MUJIMER)) 
graf_®ouse(N JFF, OxOL); 
if (SURE.shade ! = F'EN ERASER) 

ft v_pl ine(vdi Jandle, 2, (WORD i) pxy); I 

v_arc<pict_hndl,x,y, radius, 0,3599) ; 

else 

eraser ((WORD) pxy[23, (WORD) pxyC33); 
graf_«ouse(M JN, OxOL); 
done = TRUE;" 

} 

else 
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if (evjihich l HU.TIHER) 

{ 

graf _ftouse(M_ON, OxOL); 
fflfiags = HUJUTTON ! ; 

} 

else 

{ 

if ( ! (fif lags k fill JIHEft) ) 
graf_*ouse(!1_GFF, OxOL); 
if (SUREshade !=’pEN ^ERASER) 

{ 

It v_pline(vdi_handle, 2, (WORD I) pxy); I / 

v_arc(piet_hndl ,x,y, radius, 0,3599) ; 

iff lags = MUBUTTQN ! HU_M ! HU_TI!1ER; 

} 

else 

{ 

eraser ( (WORD) pxyC23, (WORD) pxyC3]) ; 
graf_*ouse(H_GN,OxOL) ; 

\ 

p k y [ 0 1 = pxy [2] ; 
pxyCH = pxy C 3] ; 

} 

} It while 1/ 



set _c 1 i p (FALSE, &curr_work) ; 

if ( cur rhndl == pi ct_hndl ) save_pict_workO; 

if ( curr_hndl == data_hndl ) save_data_work() ; 



it tl 

It eraser 1/ 

It t! 

VOID 

eraser(x, y) ft erase rectangle of eraser size at x,y t! 

WORD x, y; 

t 

\ 



WORD erasexy [4] ; 

if ( SURE pen == PENJINE) 

{ 

erasejyCOl = x - 2; 

erase_xy[ll = y - l; 

erasej<y[2] = x + 2; 

erase^xy [33 = y + l; 

} 
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else 



if (5URE_pen == PEN_WED I UM) 
( 

er ase_xy CO] = x - 4; 
erasexy [ 1 ] = y - 2; 
er ase_xy [23 = x + 4; 
er ase_xy C33 = y + 2; 

} 

else 

{ 

erase_xyCO] = x - 6; 
erasexyC l ] = y - 3; 
erase_xyt2] = x + 6; 
erase_xy[33 = y * 3; 

} 

vr_re cfi ivrii_handle, er ase_xy ) ; 



nttttumtttttttnttttttttttttttttttttttttttttttttttttttttttttttttttt/ 
ittttttttttttttttttttttmtttttttttttttntxnttttttttttnttttttttutttt/ 
/tut uni 

nut SURE Event Handler ttttf 

Itttt tttt/ 

/unutuunnntnnnttntttuutntttnntnntnnttnnttuuttti 

/nuuutuuuttnnxttxnntnuuutttnttuuutttttnuttttnttu/ 



it 1! 

it SURE !/ 

It - */ 

SURE ( ) 



BOOLEAN done; 

key_input = FALSE; 
done = FALSE; 

FOREVER 

{ 

ev_wh i ch = evnt_«ul ti ( HU.HESAG S HU_KEYBDt / 

0x02, 0x01, 0x01, 

a_out, 

(UWORO) data_worLg_x, (UWORD) data_work.g_y, 

(UWORD) data_wark.g_«, (UWGRD) data_*ork.g_h, 

0 , 0 , 0 , 0 , 0 , 

adrasg , 0, 0, 

iaousex, tsousey, ibstate, Estate, 

Ifkreturn, &bclicks); 

windupdate { BESUF'D ATE ) ; 
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if (' (ev_which l MU KEYBD) ) 

{ 

if ( keyi nput ) 

{ 

curs_oft 0 ; 
key_input = FALSE; 
save_data_work() ; 

) 



if (ev_which fc HUMESA6 ) 
if (hndl_»sg()) 
break; 



if (ev^hich & «U_K1) 
if (hndl_®Duse() ) 
break; 

if (ev_which & HU_KEYBD) 
if (hndi_keyboard(l) 
break; 

wind_upaate(EKD_UPDATE) ; 

} 

) 



innntnnnntnnnnnnnnnntnttnnnnnnnntnntnntni 

itnntntnnntninnnnnntntntmtnnntnntnunmntnni 



inn 




nut 


inn 


Terainatior. 


tnti 


inn 




tnti 



fnitnnnnnnnntnnntnnnntntnntnttnnttnnnntnnni 

iummnnnttttntmtmnnnntnntntnmntttmtmtnnnt/ 



ft */ 

It SURE_t era \i 

n — a 

SURE_terfii(teri_type) 

NGF.D teri_type; 

{ 

switch (term_type) It NOTE: all cases fall through tl 

{ 



case (0 /t noraal tersination I/): 

do_close(pict_hndl, gl_wfull/2, gl_hfull/2); 
wi nd_del ete (pi cthndl ) ; 

do_close(data_hndl, gl_wfull/2, gl_hfull/2); 
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wind_deiete(data_hndl); 
cast (3): 

®enu_bar (OxOL, FALSE); 
das_free(pict_«fdb.iip); 

case (2)7 

v_cl svwk ( vdi_hand!e ); 
case (i): 

wind_update(END_UPDATE) ; 
appl_exit() ; 
case (4): 
break; 



/mmmmmmhmmmmmmmmmmummmmmmmmmmmmmuhmm/ 
/mmmmmmmmmmmmmmmmmmmmmmmmmmmummmmmmm/ 
nut tmi 

/HU initialization MU/ 

/MU Mil/ 

/MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM/ 
/MMMMMMMUMMMMMMMMMMMMMMMMMMMMMMMMMMM/ 

ft— if 

It pict_i ni t Xi 

ft : 1/ 

VOID 

pictjnit 0 
{ 

LONS tree; 

WORD tr_cbj, nob j ; 

rsrc.gaddrtRJREE, SUREINFD, litres) ; 

trans_Qiinage(tree, SUREIMG); 

rsrcjaddr IRJREE, SUREPEND, Itree); 

for (tr_oDj = SUREPFIN; tr_obj <= SUREEBRD; tr_obj++) 



trans_gi sage (tree, tr_obj); 

LWSET (OBJYPE (tr.ob j ) j 6_USERDEF) ; 
nobj = tr_obj - SUREPFIN; 
bru5hub[nobj3.ub_code = drawaddr; 
bru5hub[nobj].ub_par» = LLBET(OB_SPEC(tr_obj)); 
LLSET (0B_SPEC (tr]ob j ) , ADDRIibrushubtnobj])); 
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It - */ 

it SURE init tl 

it tl 

WORD 

SURE.initO 

r 

\ 



WORD work_in[! ! 3; 

WORD i ,pict_w,data_w,data_x; 

GRECT box; 

LONG tree; 

g!_apid = applJnitO; It initialize libraries if 

if (gl_apid == -1) 
return (4) ; 

wind_update(6ES_UPDATE) ; 
graf_foDuse(HQUR_SLASS, OxOL); 
if («rsrcJcad(’ADDR( B SURE.RSC B ) )) 

{ 

graf_*Duse (ARROW, OxOL); 
for«_alert il, 

ADDR( u C3][Fatal Error ! i SURE . RSC ! Fi 1 e Not Found]! Abort ]“)); 
return(l); 

} 



It open virtual workstation 1/ 

for (i=0; i< 10; i++) work_inti ]=!; 

wor k_i n [ 101=2; 

qeffi_handle = graf_handle(iyl_«char, &gl_hchar , &gl_Mbox _hbox) ; 
vdijiandis = gea^handle; 
v_opnvwk («ork_in ? levdi_handle, work_out) ; 
if (vdi ^handle == 01 return ( 1 ) ; 

scrn_width = work-out E0] + 1; It WIDTH GF SCREEN in pixels if 

scrn’height = work.outii] + 1; it HEIGHT GF SCREEN in pixels tl 

scrn_xsize = work_QutC3J; 
scrnjysize = work-out [41; 

char _f i ne = work-out E463 ; 
char^isediuffi = work_out[4B3; 
char_broad = char_iediu® I 2; 

vq_extnd (vdi _handl e, 1, work-out) ; 
scrnjlanes = work-out C41 ; 

scrn_area.g_x = 0; 
scrn_area,g_y = 0; 
scrn_area.g_w = scrnwidth; 
scrn_area.g_h = scrnjieight; 
scrn_»fdb,ip = OxOL; 
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It *enu bar operations 1/ 



pict_init(); It transform l user 

ad_r<nsg = ADDR KBYTE I) fcgl.rtsgCO]) ; 
rsrc_gaddr (R TREE , SUREHENU, S«g! _®enu) ; It init 
®enu_bar (gl^senu, TRUE); It show 



defined objects 

menu 1/ 
aenu t! 



tl 



wind jet (DESK, WF_WXYWH, &gl _xf ul 1 , _yf ul 1 ^gi^wful 1 ,^gl_hful 1 > ; 

' It wcrkarea of DESK window 1/ 



pict jRfdb.fwp 
pict_8ifdb.f ww 
pi c t _®f db . f h 
pict_afdb.np 
pict^mf db. f f 



It define buffer area for picture window </ 
ll( 5crn_width); 
pict_»fdb.fwp>>4; 

IK scrn_height); 
scrn planes; 

0; 



pict_rect.g_* 

pict_rect.g_y 

pict_rect.g_w 

pict_rect.g_h 



v j 

0; 

pictjrt tfb.fwp; 
pictjafdb.fh; 



si:e_pict_*fdb = (LONG) ( (pict_»f db.fwp>>3)+i) I (LDNB) pict_sfdb.fh t 
(LONG) pi ctmfdb.np; 

lGc_pict_iifdb " 

pict_sfdb.ip = do5_alloc(si:e_pict_fflfdb) ; 
if (pict_fcfdb.«p == 0/ return(2); 



datajifdb.fwp 
data^ififdb.fww 
data_ftfdfc.fh 
dat a__mf db . rtp 
data_*fdb.f f 



It define buffer area for data window 1/ 

scrn_width; 
data_#fdb.f wp»4; 
il( scrn_height) ; 
scrn planes; 

0 ; 



data_rect.g_x 
data_rect. g_y 
data_rect. g_w 
data_rect.g_h 



0 ; 

0 ; 

data_#(db.fwp; 
data”®fdb. -fh; 



si:e_data_»fdb = (LONG) ( (dataj#(db.twp'»3)+l> i (LONG! data_»f db. th * 
(LONG) datae-f db . np ; 

1 oc_data_s-f db = 

data_sfdb.#p - doa_allcc(si:e_data_*fdbi; 
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if (datajfdb.iap == 0) 
return (2) ; 

ft set all pixels in pict buffer to zero (white) tf 
ra5t_op(0j l &pict_rect,^pict_« < fdfc,^pict_rect ,&pict_#fdb) ; 

It set all pixels in data buffer to zero (white) tf 
ra5t_op(0,Mata_rect,idatajRftib J fcdata_rect,idatajifdb)5 



ft create the two windows ’picture’ and ’data’ tf 

pict.hndl=wind.create(OxOf ef ,gl j full -l,gl_y full ,gl_wfull ,gl_hfull ) ; 
data^hndl =wi nd_create(OxOfef ,gl_xfull-i ,gl_yfull ,gl_wful ! ,gl_hfull ) ; 

if ( (pict.hndl == -1) I! (data.hndl ~ -1) ) 

{ 

for»_alert (1, stnnc_ador (5URENKDW) ! ; 
return ( 3 ) ; 

i 

graf_souse(HQUR_GLASS, OxOL > ; 
wind.settpict.hndl, WF_NAKE, 

(WORD) LLGWD(ABDR(wdw.title) ) , (WORD) LH!WD(ADDR(wdw_title) ) , 0, 0); 
wind.settdata.hndl, WF.NAHE, 

(WORD) LLOWDiADBR(wdw.tdata) ) , (WORD) LHIWD (ADDR (wdw.tdata) ) , 0, 0); 

pict_w = (6lgi_wfull)/10 ; ft init width of pict window tf 

data_w = (4tgl.wfull)/10 - 2; ft init width of data window if 

data.x = pict.w + 2; ft init x-coord of data window 1/ 

do^open (data.hndl ,gl_wful 1/2, gl_hfull /2, data_x, gl.yf ull , 
data.w, gl.htull); 

riojpentpict.hndl ,ql_wf ull /2,gl.hf ull /2,gl.x full , gl_y full , 
pict.w, gl.htull); 

wind jet (pict _hndl jWF.WXVWH^pict.work.g.x^pict.work.g.y, 

&pi ct.wor k . g.w, &pi ct .wor k . g.h ) ; 
ft init workarea of pict window tf 
wind jet (data.hndl ,WF_WXYWH, kdata_Nork.g_x,&data_work.g_y, 

idata.work.g .w,ttdata.work,g.h) ; 
ft init workarea of data window 1/ 



pict.undo.g.x 

pict.undo.g_y 

pict.undo.g_w 

pict.undo.g_h 



0 ; 

0 ; 

pict_Hork.g_*; 
pi ct_Mor t. . g_h ; 



!\ init pi ct_undo area tl 
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it init data undo area ti 



data_undo.g_x = 0; 
data_undo.g_y = 0; 
data_undo. g_w = data_work.g_w; 
data_undo.g_h = data_work.g_h; 

rc_copy (&pict_undo,&pict_prev_undo) ; it init. 'previous' undo if 

rc_copy <Sfdata_undo, ?<data_prev_undo> ; it areas {or full/unfulling ti 



5et_data _^ork (TRUE) ; 
rst_data_work 0 ; 
init_data(); 



it init slider bars of data window ti 
it data window turns white 1/ 
it init data structures ti 



set_pict_work(TRUE); it init slider bars of pict window ti 

rst_pict jrforkO ; it pict window turns white ti 



yrat_»ouse (ARROW, OxOL) ; 
wind_update (END_UPDATE) ; 



objc_xywhiQl_ftenu,SUREDESK, Scbox > ; 

rsrc^gaddr (R_TREE, INTRG, Uree) ; 

hr:dl_di a! (tree,0,box.g j,box.g_y,box.Q_w,box.g_y} ; 

desel_obj (tree, INTROOK) ; 

return (0) ; 



itumtttttttntttttttttttttttitttttttntntttmtttttmmtttttttttti 

/mmtmmumtmutnunmmnttumtmtmmmmmmt/ 

itttt tttii 

iXUt Hain Prcgras tttti 

itttt ttiti 

ittuttttttttttttttttttttntttitttmttttttmmtttttttttttttttmttw 

itttttttttttuntttitiittttttttttntttttttttttttttttuttttttttttitttttti 



it— ti 

it BEMAIN ti 

it ti 

EEMhINO 

r 



WORD terE_type; 

if (! (term^type = SURE_init())) 
SURE 0 5" 

SUF:E_terffi(terffl_type) ; 
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APP E NDIX C 

SURE OPTIONS LISTING 

This APPENDIX contains all the code required to enter 
and label the Semi-markov models displayed in the Data and 
Picture windows. The code is all original and is self 
documenting . 
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/tiuuimttutmtttmimtmtiunnmtuuiittmiitmuiunti, 



it ti 

it This is the SURE-opti ens portion of the SURE progr am. All ti 
it routines necessary to implement the following functions are ti 
it contained in the routine; ti 
it Enter Constants if 
it Enter States ti 
it Enter Transitions ti 
/ i Reiipiol - Set-up to be done at later date ti 
!t Hardcopy - Set-up to be done at later date ti 
it ti 
it John c. Bordeaux ti 
it Naval Postgraduate School ti 
St Master's Thesis ti 
it a 



/mmmnmmmummmmmmmummmmtmmmm/ 



it 


-♦/ 






ft includes 


ti 






it 


-ti 






♦include B portab.h R 




it portable coding conv 


ti 


♦include Machine. h" 




ft machine depndnt conv 


ti 


♦include "obdets.h" 




it object definitions 


a 


♦include e tr eeaddr . h 41 




it tree address macros 


I / 


♦ include 8 q e mb 1 n d . h ” 




it gem binding structs 


ti 


♦include B sure.h" 




it SURE apl resource 


ti 


♦ include L math . h a 




it lattice c 


ti 


♦include "limits. h" 




ft lattice c 


ti 


♦include “optstrct.h 6 








♦define TE TXTLEN f x) (x+241 








ft 


-ti 






Si preprocessor utilities 


I / 






it 


-ti 






♦define HALLOC(x) fix t) 


sal loc 


(sizeof (x))> 




♦define CALLQC (n , x) ((x 1) 


callodn, si zeof ix ) ) ) 




it 


-if 






ft OPT/SURE defines 


ti 






It 


- ti 






♦define EKD.UPBfiTE 0 








♦define BEg’uPDATE 1 








♦define MAXSTATE 100 




it maximum number of* states 


ti 


♦define HAXTRANS 200 




it maximum number of transit 


ion t! 


♦define ETC ALC 0 




ft Whites algebraic formula, 


E(t it/ 


♦define START 1 




ft indicates the start state 


ti 


♦define GEOMETRIC FALSE 




it deselect geometric 


ti 


Idefine prn; EPSHSS10.FNT 
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/t— - 

it External Functions 
It— 



Xi 

X 

Xi 



EXTERN LONS dos_aiIoci); 

EXTERN UWORD DQs’eRR; 

it - — - Xi 

IX Global Data Structures XI 

I X 1 / 

extern struct state_loc state_array[HAXSTATEl; 

IX XI 

IX external variables XI 

IX— XI 



extern 


WORD 


gl_wchsr; 


extern 


WORD 


gl_hchar; 


extern 


WORD 


gl_*box; 


extern 


WORD 


gl_hbox; 


extern 


WORD 


gl_rffl5gCSj; 


extern 


WORD 


gl_hspace; 


extern 


WORD 


SUF;E_pen; 


extern 


WORD 


SURE_shade; 


extern 


WORD 


PEN_ERASE; 


extern 


WORD 


TIME; 


extern 


WORD 


POINTS; 


extern 


LONS 


PRUNE; 


extern 


WORD 


WARNS 16; 


extern 


WORD 


TRUNCj 


extern 


WORD 


L&FACT; 


extern 


WORD 


LIST; 


extern 


WORD 


title: 


extern 


WORD 


ydata; 


extern 


WORD 


radius; 


extern 


WORD 


gem_handl e; 


extern 


WORD 


vdi_handle; 


extern 


WORD 


KDrk_outC57] 


extern 


WORD 


ev_whi ch; 


extern 


WORD 


vdi_handle; 


extern 


WORD 


curr_hndl ; 


extern 


WORD 


pict_hndl; 


extern 


WORD- 


data_hndl; 


extern 


WORD 


pen_shade ; 


extern 


WORD 


SURE^height 


extern 


WORD 


char_Fine; 


extern 


WORD 


char_medium; 


extern 


WORD 


char_broad; 


extern 


WORD 


aonuaber ; 


extern 


LONS 


ffioFaddr ; 



It character width 


tf 


IX character height 


XI 


IX box (cell) widen 


XI 


It box (cell) height 


XI 


IX message butter 


XI 



I X Ht. dF space between lines 1/ 



IX suasion t i me XI 
IX nusber oF pts plotted/calc 1/ 
it deactivate the pruning XI 
i I set LIB accuracy XI 
IX set loop traversals at 3 XI 
IX sets the Ki and Kj = 20 1/ 
It sets the output level tl 

IX Current data line XI 
IX Cureent radius ot state XI 
it 6EF vdi handle XI 
It SURE vdi handle 1/ 



IX open virt workstation values!/ 
it event multi return state ( s) Xi 



IX SURE window handle tf 
ft SURE data window handle XI 
It saved pen shade tl 
IX SURE current char height tl 
ft character height For tine XI 
IX character height tor tedium tl 
IX character height For broad 1/ 
It mouse Fore number 1/ 
ft mouse Fora address tf 
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extern 


WORD 


f i 1 ehandle; 


It 


tile handle -> pict Id/sv 


tl 


extern 


WORD 


key_xbeg; 


It 


x posit {or line beginning 


t! 


extern 


WORD 


key_ybeg; 


It 


y posit {or line beginning 


tl 


extern 


WORD 


key_xcurr; 


It 


current x position 


I / 


extern 


WORD 


key_ycurr; 


it 


current y position 


tl 


extern 


WORD 


runno; 


It 


run number 


tl 


extern 


WORD 


pathcount; 


It 


number c{ paths 


tl 


extern 


WORD 


cnttrunc; 


it 


number o{ loops truncated 


tl 


extern 


WORD 


cnt prune ; 


it 


number o{ paths pruned 


tl 


extern 


WORD 


bigst; 


It 


largest state entered so tart/ 


extern 


WORD 


i; 








extern 


WORD 


nufii_5t ates; 


It 


number of states entered 


V 


extern 


DWORD 


«_out ; 


It 


souse m/out of window flag 


t / 


extern 


DWORD 


sousex, mousey; 


ft 


mouse x,y position 


tl 


extern 


UWORE 


bstate, bcl icks; 


it 


button state, l 1 of clicks 


t i 


extern 


LJWGRD 


kstate, kreturn; 


It 


key state and keyboard char 


If 


extern 


LONG 


ad^rssg: 


it 


LONG pointer to message bfr 


tl 


extern 


LONG 


q i _ ft e n u ; 


It 


menu tree address 


tl 


extern 


LONG 


drawaddr; 








extern 


GRECT 


curr^work; 


It 


work area of current window 


tl 


extern 


GREET 


pict_work; 


It 


work area of picture window tl 


extern 


GRECT 


pi ct rect ; 


it 


work area of picture window 


tl 


extern 


GRECT 


databank; 


it 


work area of data window 


tl 


extern 


GRECT 


curr_undc; 








extern 


GRECT 


pict jwdc; 









extern 


double 


spec! dw; 


it 


variable range value 


tl 


extern 


double 


spechigh; 


it 


variable range value 


tl 


extern 


double 


specval: 


It 


special variable value 


1 1 


extern 


double 


ubf ail ; 


It 


prob of system failure 


tl 


extern 


double 


Ibfail; 


It 


lower bound of failure 


ti 


extern 


double 


e_of_t; 


It 


E (I ) computation result 


ti 


ex t er n 


double 


e_of J-del ; 


It 


E(T-t) computation result 


ti 


extern 


double 


pi alpha; 


It 


product of the alphas 


tl 


extern 


double 


lowbt ,iowbg; 


It 


intermediate results 


ti 


extern 


BOOLEAN 


keyjnput; 


It 


key inputting state 


ti 


extern 


BOOLEAN 


erun; 


It 


runtime errors flag 


tl 


extern 


BOOLEAN 


nonlinear; 


It 


nonlinear flag 


tl 


extern 


BOOLEAN 


et_bad; 


It 


E(T) comp, is inaccurate 


tl 


extern 


BOOLEAN 


rec_slcw; 


It 


recovery toe slow 


ti 


extern 


BOOLEAN 


5 1 d _ b i q ; 


it 


Rec St d . too big 


ti 


extern 


BOOLEAN 


rate_big; 


it 


Exp. rate too fast 


tl 
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/uuuniiumuimnunnnuinmmMuumumnumiumi/ 

It DATA INPUT SECTION 1/ 

nmtumtmmntnmumnmuuutnttumtmuttummm/ 

a— 1 / 

ft init_data t! 

it 1/ 

imt jiataO 

WORD l ; 



for { i = i; i <> nflXSTflTE; i+±) 

{ 

state_array[i l.x^coord = 0; 
statearray E x j.y_cocrd = 0; 

} 

}/i init_data ti 



it xi 

it do_constants 1/ 

it : 1/ 

VOID 

du_con5tants() ft This routine defines the 1/ 

{ it values of the constants 1/ 

SRECT box; 

LONG tree; 



LONE cons_addr, valu_addr ; 

BYTE dna*e[133,dvaiu[253; 

WORD exit_obj; 

save_data_work() ; 
set_cl ip (FALSE, fcpict_work) ; 
set’data.wrk(TRUE);" 
set_ciip (TR ! JE,&data_Nork) ; 

FOREVER 

{ 

objL^xywh (q! _aenu, 5URE0PT5, ^bo>: ) ; 
rsrclgaddr CRlTREE, ENTERCDN, fctree) ; 

exit_obj = hndl_dial (tree,*), box. g_x, box.o_y, box.g_w, hox.g_h); 
desel^obj < tree, CONBTYEE) ; 

if ( exit_obj == C0NSTN0) 

{ 

desel _ob j (tree, CONSTND) ; 
rst_data_Hork (i ; 
set jjict_work (TRUE) ; 
set_clip(TRUE,&pict_wcrk) ; 
return; 
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objc jtywhtgl jienu,SUREOPTS,SibGx) ; 
rsrc_gaddr (R_TREE, ADDCDNST,Uree) ; 

con. addr = LLSETiQE JPEC(CONSHAKE) ) ; 
valu’addr = LLBET (0B_SPEC (COMSVALU ) ) 5 

L'LSET i cons_addr, ADDRidnane) ); 

LLSETE valu^addr, ADDR(dvalu) ); 

LWBET ( TE_TXTLEN(cons_addr) , 9); 

USET ( TEJXTLEN«valii’addr) f 21); 

dnameEO j = ’ \0 ? ; 
dvaluEO] = 1 \0 ? ; 

it<hndl_dial (tree, C0N3NAKE y & dx • , b c? >; . q _ y , box.g_H, box.g_n) 

== ADDCQNOK ) 

rst_data_workO; 

vst heignt (data_hndl , char t 1 ne , &gl_wchar, ^gl_hthar, 

&gl_wchar , gl_hchar); 

v_gtext(data_hndl , data_work.g _x+5, data_work .g_y+ydata tB, dnamB) ; 
v_gtext (dstajindl , data_wQrLg_x*30,datd_*Grk.g_y+ydatatB, H=B ) ; 
v_gteyt(data_hndl , data_work 1 g_x+90 ) ddta^work.g_y+ydatat8,dva!u) ; 
vst_hsight (data_hnd! ,char_«ediwB, igl^wchar, &gl_hchar, 

&gl_wchar , gl_hchar); 

save_data_wo rkO; 
rst_data_wo r k 0 ; 
desei _ob j < tree, ADDCONGK) ; 

ydata++; 



nimntnuuttuuuuutmuututtutintutuunuumiutntu 



it xi 

iX This is the Enter states portion of the Sure program. XI 

it X/ 

/xttxixxxxxtxitxxttnxxxxxxxxnxxnxixxtxxxxxxxxxxxixxxxxxxxxxxxxxxxxxx/ 

a — - 1 / 

/i do_states 1/ 

it — : -XI 

VOID 

do_states() it Inis is the work Horse of XI 

f It enter states. XI 

GREET sta_area , box ; 

LQNS tree; 
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graf_ieou5e(<aonuflber,{nofaddr) ; 



sta_area.g_x = pict_*ork.g_x + 
sta_area.g_y = pict_wark. g_y + 
sta_area.g_*’ = pict_work.q_w - 
5ta_area.g_h = pict_work.g_h - 



7 c , 

^ j ; 


ft 


19; 


n 


50 j 


it 


30; 





This box defines an area on X! 
the screen to insure states XI 
do not overlap the boundav tf 



while (misstates <= MAXBT ATE ) 
{ 



ev_which = evnt^ffiulti vMU^BUTTON ! HU_K1 , 
OxOi, 0x01, 0x01, 

t 

* i 

(DWORD) pict_Hork.g_x, (UwGRD) pi ct^work . g_y , 
(DWORD) pict_worLg_w, (UWGRD) pict_*ork.g_h, 
0, 0, 0, 0, 0, 
ari_r.nsg,0,G, 

^ffiousex, Mousey, Estate, tkstate, 
ikreturn, ibclicks); 



if ( ev.nhich %. HUJUTTON) 

{ 

if ((inside (aousex , mousey, &sta_area?) W 
( !too_clo5e(EQU5Bx,*ousey,nuft.5tates) ) ) 

{ 

dr aw_st at e(»ousex, mousey, nuf»_states) ; 
evnt_tiser (500,0) ; 

stdte_array[nui_5tate5].x_coord = sousex; 
state_array[nu«_states3.y_ccord = nousey; 

It state_array[nuHi^states3.x_coord = pict_undo.g_x + 

( sousex - pict_wark.g_x); 
5tate_array[nuffl_5tates3.y_coord = pict_undo.g_y + 
( stousey - pict_work.g_y); 

XI nuffi states** ; 

> 

} 

if ( ev_which It MU_Mi) 

{ 

save _pict_work 0 ; 
return; 
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It - — 1/ 

It draw_state 1/ 

it ti 

WORD 

draw_state(x, y } nua_s) 

WORD num_s; 

UWORD x, y; 

{ 

UWORD x _next , y_next ; 

UWORD xt,yt; 

BYTE nu»_str£203; 

graf _»ou5E <H_QFF, OxOL); 
itQa(nuB_5,nua_str) ; 

It radius = 16; 1/ 

if (nuft^s <= 9) 

( 

xt = x - 3; 

yt = y + 2; 

} 

if ((nu«_5 >= 10) tit (nu& 

{ 

xt = x - 8; 

yt = y + 2; 

\ 

it' ( nue_s >- 100) 

{ 

xt = x - 12; 

yt = y + 2; 

} 

vsl_width(pict_hndl ,1) ; 
vsl_ends<pi ct_hndl ,2,2); 

Y_arc(pict_hndl,x,y, radius, 0,3599)} It Dra^ state here tl 
It dran_pencil (x,y) ; 1/ 

vsj_width(pict_hndl,l) j 

Y_gtext(pict_hndl, xt, yt, nua^str i ; It Label state here tl 



It This routine draws and 1/ 
It labels the state at the XI 
It x, y, location. The state 1/ 
It is labeled with the value tl 
It contained in nu*_s. tl 

It Turn souse off I / 
IX Convert nua_s to a string if 



It The next set of statements tl 
It determine where to label tl 
ft the state for mediui. i / 



<= 99 )) 



graf _#ouse(H_QN, OxOL); It Turn souse on tl 



It tl 

It guess tl 

It - tl 

9UEss(x__curr,y_curr,x_riext,y_next,ptg} It guess the next state locat. tl 
UWORD x_curr,y curr,x next , y next; 

6RECT tptg; 

{ 
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i-f ( C x_curr + 60) <= (pt o->g_x + ptg->g_K)) 
{ 

x_next = x_curr + 60; 
y_next = y_curr; 

}’ 

else 

x_next = x_curr; 
yjiext = y_curr + 60; 

}/t guess 1/ 



It - — if 

It too_dose tl 

ft 1/ 



too_close(x ,y ,nua ) 








UwQRD x, y; 


it 


This routine determines if 


1/ 


WORD nue; 


It 


the states are too close, 


1/ 


{ 


It 


it takes the absolute value 


tl 


WORD i; 


It 


of the difference between 


if 


UWORD x_te®p, y_te«p; 


It 


the present mouse position 


tl 




It 


and state positions that 


tl 




It 


area stored in an array 


tl 


if ( pus == 1 ) 


It 


called state_array. 


tl 



return (FALSE); 

nun = nuai - 1; 

ter ( i = 1; i <= nufs; i*+) 

{ 

x _ t s up = abs ( x - state ar r ay[ i ].x_coord> ; 
y_teap = abs( y - state_array[i 3.y_coord) ; 

i r i ( x_teffip <= 75) && (y_temp <= 40)) 
return (TRUE); 

} 

return (FALSE); 

} ii too closet/ 
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txxxtumtmttxxtxxtmttxmmttttxttxtmmxtxxxxtnxxxmxntnti 



it I / 

it This is the transitions section of Sure. The routines used to Xi 
it draw and input the data for the transitions between states is Xi 
iX included in this section. Xi 
it a 



/xtxxxtxxxxxxxxxxxxxxxtxxxxxtxxxxxxxtxixxxxxxxxxxxxxxxxxxtxxxxixttxxxn/ 

it 

it get_slcw(i 

it 

BYTE 

igst_slow if rof&s, tos) 

WORD Trows, tos; 

,r 

LONS tree; 

LONS ted_addr; 

BREST box; 

BYTE tnafle; 

double atofii; 

VALREC mean, stdev, Tract; 
save_data_worf 0 ; 

objc_xywh(ql_«enu,SyREQPTS,5jbox) ; 
rsrc_gaddr (R_TREE,SURESLQMtree) ; 
tedaddr = LLSET (0B_SPEC (SLOWLAHB) ) ; 

LLSETi ted_addr, A0DR{na»e) ); 

LWSETf TEJXTLENIted.addr), 9); 

if ( hndl _ g l a 1 ( tr ee , SLOWL AHB , box . q_x , box , g_y , box . g , box . g _h ) 

== SLusGLl 

( 

desei _ob i (tree, SLQHOK) ; 
near.. base = atof(nase); 
sean.coef = atofinase); 
stdev. base = *1.0; 
stdev, coef = -1.0; 
fract.base = 1.0; 
tract. coef = 1.0; 

enter (froas, tos, tsearij^stdev^fract) ; 
return (name) ; 

/ 

} it get^slofcO I / 



t f 
Xi 
Xi 

it dialogue box input rate ti 
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ft 1! 

it get fastO tf 

it tf 

BYTE 



gst_fast (*f roas , t os , mean , stde v s f r ac> ft dialogue bo x input rate tf 
WORE fross,ta5; 

BYTE l*ean,lstdev,ifrac; 

{ 

LONS tree; 

LONG ff.ean_addr; 

LONS stdev_addr; 

LONG f racaddr ; 

GRECT box;” 

double atofO; 

VALREC taean, tstdev, tt ract ; 
save_data_work 0 ; 

objc_xynh (gl^menu, SUREDPTS, Stbox ) ; 
rsrc_gaddr (R_TREE,SUREFA5T,&tree> ; 

aeariCO] = ’ \0’ ; 

ff»ean_addr = LLGET <0B_SPEC (SUREHEAN) ) ; 

LLSET( ftean_addr, ADDRimear*) I; 

LWSET ( TE_TXTLEN («ean_addr } f 9); 

stdevtO] = J \C; 

stdev.addr = LLGET (0B_SPEC (SURESTD J ) ; 

LLSETi stdev_addr, ADDR(stdev) ); 

LKSETi TETXTLEN (stdevaddr ) , 9); 

fracEOl = J \0'; 

frac_addr = LLGET (QB_SPEC (SUREFRAC) ) ; 

LLSET ( trac_addr, ADDR(frac) ); 

LWSET ( TE_TXTLEN(frac_addr) , 5); 

if (hndljiial ( tree, SUREHEAN, box . g_y, , box . g_y , box . box. g_h > 

== FASTOK) 

r 

l 

desel_obj (tree, FASTOK) ; 

taean. base = atot(sean); 

taean. coef = atotUean); 

tstdev.base = atofiatdev); 

tstdev.coef = atof (stdev) ; 

tfract.base = atof(frac): 

tfract.base = atof(frac); 

enter (f rons, tc5,fctiean,4tstdev, It fract) ; 

} 

) ft get_fasti) tf 
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ft if 

It do_fast_transition t! 

ft : if 

VOII 

do_f ast_transition() 

WORD exi t _ob j , f rams , tos; 
BRECT Dox; 

LONS pxy[43,tree; 



double dblpxyiAl; 

BYTE aeanC 133, stdevL 133,-fracC93; 

set_pict_work (TRUE) ; 

&et_cl ip (TRUE, &pict_worfc); 
gref _mousG (monuffiber , ©of addr) ; 



it This routine determines the ti 
it fross and the tos for input?/ 
it for input of transition data!/ 

;T define pxy array as a long ti 
It redefine pxy array as doublet/ 



e v _whi ch = evnt _»ul t i (HU_BUTT 0 N I «U_M 1 . 

0x0l7 0x01, 0x01, 

u 

(UWORD) pi ct_work . g_x , (UwORD) pict_work.g_y, 
(UWORB) pict_worfc.g_w, (UKGRD) pict_work.g_h, 
0, 0, 0, 0, 0, 
ad_r ffisg ,0,0, 

fraousex, ttsousey, Lbstate, Estate, 
fckreturn, Lbclicks); 



if ( evjihich & MU.W1) 

{ it exit if souse out of window ti 

save_pict_hork i) ; 

return; 

} 

if ( ev which & Hu BUTTON) 

{ 

if (which_5tateimou$ex, mousey, fcfroms) ) 

{ 

pxyEO) = state_array[froms3.x_coord ; 

pxy [ 1 ] = state_array[fro*s].y_coord ; 

dblpxyTOJ = pxy [03 ; it store x (froms)-locationt/ 

dblpxyClj = pxy C 1 3 ; ft store y (fromsMocationt/ 

evntjiaer (500,0) ; 

) 

It After from state is selected loop ti 
do it until a good to state is selected ti 

{ 

evjihich - evnt.multilHUJUTTON ! KUJIi , 

0x01, OxCl, 0x01, 

1, 

(UWORD) pictjork.qj, (DWORD) pi c twork . g_y ? 
(UWQRD) pict_work.g_w, (UWORD) pict_work.g_h, 

0, 0, 0, 0, 0, 
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ad_riisg,0,0, 

Uousex, Mousey, Icbst at e , ikstate, 
tkreturn, tbclicks); 

if { ev_which & MU_f1i) 

{ it exit it House out of window if 

save_pict_work(); 
return; 

} 

} while (!(( ev_which & HU_BUTT0N) W 
( which_state(#ousex, mousey, Ues) M ) ; 

pxy[23 = state_arrayEtos].x_coord ; 
pxyEo] = state^arrayEtosl.y^ccord ; 
dblpxy[23 = pxyE23; 
db!pxyE31 = pxyE33; 

draw_tran(&dblpxy,fro«s,tos) ; 
savepictwork ( ) ; 
save_data_work 0; 

it Prepare to get the transition data 1/ 
it draw dialog box for Past transition tt 

get jfast (froiss, tcs, &f&ean 9 Icstdev, Icf rac ) ; 

it label the data window XI 
!ab_tast_window(troft5, tos,&ffiean,S{Stdev,kfrac) ; 

it label the fast transition ti 
1 abel_f ast (&pxy,froiis,tDs,&ftean,SistdeY,&frac/ ; 
rst - pict_work(); 
rst_data_work 0 ; 
set_pi ct _wor k (TRUE) ; 
set_c] i p (TRUE, &pict_work) ; 
return; 

\ 

return; 

} ft doJast_transition t! 



It — - -—if 



it do_slow_transition 


t! 






it— -- 


—ti 






VOID 




It This routine determines the 


ti 


do_sl ow_tr ansi ti on ( ) 




it frofiis and the tos for 


ti 


{ 




It input of transition data 


ti 


WORD i ,frofts ,tos; 








GRECT box; 








LONG pxy E4 3, tree; 




/< define pxy array as a long 


ti 
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double dblpxy[41; 

BYTE enamel 13 3 , <get_sl o« ( ) ; 

BYTE pstrt 131; 



It redefine pxy array as double!/ 



qraf _ffiouse (aonusiber , ffiof addr } ; 
set _c 1 i p ( TRUE , &p^t_work); 



e v_whi ch = evnt multi (flU^BUTTON ! , 

0x01, 0x01, 0x0 i, 

1, 

(DWORD) pict_worfc.g_x, (DWORD) pi ct_work - Q_y , 
(UWGRD) pict_work.g_w, (DWORD) p i c t_«or k . g_h , 
0, 0, 0, 0, 0, 
ad_r»sg , 0, 0, 

^mouses , Mousey, Estate, Estate, 
fckreturn, Jthclicks); 



if ( ev_which l HUJU) 

{ /I exit if fiiouse out of window tl 

5ave_pict_wcrk(); 

return; 

} 

if ( ev^which & HUJUTT0N) 

{ 

if (which_state(sou5Bx,aou5ey,&froffi5i ) 

{ 

p k y E 0 ] = state_array[frD«5].x_CDcrd ; 

p x y E 1 ] = 5tate_array[frofli5].y_coord ; 

dblpxyiOl = pxy E0] ; It store x (f rossMocationl/ 

dblpxyfl] = pxy E 1 ] ; It store ylfroasMocationt/ 

evnt jiaer (500,0); 

i 

/ 

It After fro® state is selected loop tl 
do It until a good to state is selected tl 

{ 

ev which = evnt.sulti(HUJUTT0N ! MUJ11 , 

0x01 9 0x01, 0x01, 

1, 

(DWORD) pi ct _wor k . g_x , (DWORD) pict_work.g_y, 
(DWORD) pict_*ork.g_N, (DWORD) pict_work.g_h, 

0, 0, 0, 0, 0, 
adrftsg, 0,0, 

fcaousex, Mousey, kbstate, Estate, 
ikreturn, fcbclicks); 

if ( ev_which l HLU111 
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( / I exit if aouse out of window 1/ 

5ave_pict_work() ; 

return; 

} 

} while ('(( ev_which & MU JUTTON) && 

( which^state (reousex , mousey, ttos) ) ) ) ; 

pxy [ 23 = state_arrayttosLx_coord ; 
pxyC33 - state_array[tos].y_coord ; 
dfcl pxy [23 = pxy[2]; 
dblpxy[3] = p x y C 3 3 ; 

draw_tran(&dDipxy,froi5,tDs) ; ft draw arrow if 

it Prepare to get the transition data 1/ 
it draw dialog box for slow transition ti 
save_pict_work() ; 
save_data_work 0 ; 

strcpy(cna®e , get_slow(fro®s, t os) ) ; 

rst_data_work(); 

rst_pict_work (} ; 



save_pict_work(); 

lab_slaw_window(frQ8i5,tos,knaffie) : 
save_data_work 0 ; 



} 



label_slow(ipxy,froffis,to5,knafie) ; 

ft Label slow transition 



5et_cl ip (FALSE ,S?pict_work ) ; 
return; 

} it do slow transition tf 



ti 



/$ tf 

it which_state ti 

it - ti 

which_statetx ,y ,curr_st) 

UltfORD x, y; ft This routine determines the tf 

WORD tcurr_st; it state which is under the ti 

{ it mouse cursor tf 

WORD i,nu«; 

UW0RD x_temp , y_temp; 



nuft r nua_states - 1; 
for { i = 1; i <= num; i++) 

{ 

xjemp = absi x - state^arrayti ].x_coord) ; 
y_temp = abs ( y * state_array[i l.y_coord) ; 
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if { ( x_te&p <= 19) && (y_teep <= 18)1 

{ 

tcurr_st = i; 

return (TRUE) ; it return TRUE it state is parts/ 

)■ it state_array Xi 

) 

return (FALSE) ; 

} ft which_state if 

It if 

it oraw_tran\pxy) Xi 

!\ if 

VOID 

draw^tran (dblpxy , f roes, tos) 
double Jdbipxv; 

WORD trosis, tos; 

t 

double y_diff, x _d i t f ; 
double angle : 

LONG 1 ngpxy [ 4 3 ; 

WORD pxy[43: 
double 5in{! ,cos{) ,atan2() ; 

yjjiff = dblpxy[31 - dblpxy Ei 1: It Co»pute distance, yl - y2 tf 

x_ditt = dblpxy E23 - dblpxyCOl; It Compute distance, xl - x2 1/ 

it ( x_dift := 0 ) 

angle = atan2 (y_di -f -f , x_di ff);/l Compute angle tf 

else 

angle = i. 570796327; 

it -find the edge of the circle ti 
InopxytO] = cos Cangle) t 16.0 + dblpxyCOl; 
lngpxy[13 = si n (angle? i 10,0 + dblpxytll; 
lngpxyE23 = dblpxy E23 - cos(ar:gle) t 16.0; 
ingpxy-33 = dblpxyC33 - sin tangle) t 10. C; 

pxyEOl = lngpxy[03; It convert to integer ti 

pr yE 1 3 = IngpxyC 13 ; 
pxy [23 = lngpxyE23; 
pxy E33 = Ingpxy E33 ; 



it This routine draws the line ti 
it between the states. Xi 



it Distance between frotis and tf 
it tos. Xi 



it vswr_i!ode(pict_hndl,MD_REPLACEj ; 

X! vsl_width(pict_hndl, 1) j 

vsl_color (vdi_handle,3URE_shade) ; 
vsl_ends (pict_hndl ,2,1); 

v_plineipict_hndi, 2, (WQRDt)pxy) ; !X draw arrow between states Xi 

vsl_width(pict_hndl,l); 

vsl ends (pi ct_hndl , 2, 2) ; 

} It draw tran ti 
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it -ti 

!t label Jast_transition il 

ft 1 1 / 

VOID 

label _last ( p>: y , f r oms % t os , *ean , stdev, *f r ac ) 

It This routine labels a last il 
LQN6 tpxy; ft transition between states, tl 

WORD Iroffis, tos; 

BYTE taean, tstdev, llrac; 



WORD y_dill, x_dill; 

WORD xis,ya,x5,ys,xl, yl; 

set_pi ct_wc«r k (TRUE/ ; 
set_clip (FALSE, &data_work) ; 



y_ditl = pxy[3] - pxy[13; 
x_dill = pxv[23 - pxy[03; 



it Distance between Iro&s and ti 
!X tos. ti 



it Compute distance, yl-> y2 ti 

ft CoiBpute distance, xl-> x2 ti 



xtr = .35 l xjJiff + pxytOJ; 

y« = .35 t y_dill + pxy[13; 

xs = .5 t K_di ft + p >; y [ 0 3 ; 
ys - .5 t y_dill + pxy [ 1 3 ; 

xt = .65 % x_dilt t pxy CO] ; 

yt = .65 t yjJiff + pxyC 1 3; 



vstjieight (data_hndl ,char_line, &gl _wchar , fcgl_hchar, 
*gl_«char , gl_hchar); 
v_gtext (data_nndl , xm+3 , ya , fsean ) ; 
v_otex t (data^hndl , xs+3, ys p stdev ) ; 
vjtext (datajmdl ,xf+3,yf ,trac) ; 

vst_height (data^hndl ,char_sediua , fegl^nchar, igl^hchar, 
&gl_wchar , gi_hchar); 

save - pict_nork(); 
r s t_pi ct _wor k 0 ; 
set_pict_wor k (TRUE) ; 
set^dip \ TRUE,4pict_work) ; 



} it labeMast ti 
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ft ti 

it label slow transition 1/ 

it - 1 tf 

VOID 

label_ 5 lGw(pxy,fro»s,tGS,cna£e) it This routine labels a slow 1/ 

LONS tpxy; it transition between states. ti 

WORD froRiSjtos; 

BYTE knaffle; 

{ 



WORD xl ,yl ; 



xl = p x y C 0 3 + 25; 
yl = pxyti] - 5; 

V5t_height(data - hndl , char _-f i ne, kgl_wchar, &o!_hchar, 
IfQi^wchar , gl_hchar); 
v_gtext (data_hndl , xl ,yl ,cna#e) ; 

vst_height (data_hndl ,char_«ediu$, &gl_wcnar, fcgl^hchar, 
fcgl_wchar , gl_hchar); 

save_pict_work(); 

rst_pict_wcrk(); 

} it label_slow ti 



it — - m 

it lab_-fast_wiridDwU ti 

it ti 

VOID 



lab -> -fast - window(froft5,tos,iiear!,stdev,frac) 

it This routine writes the t; 
it information that has been ti 
WORD fross,tos; it entered to the data window ti 

BYTE t*ean,istdev, tfrac; 

{ 

BYTE froas^strtj3,tG5_stri53; 

set_data_work (TRUE) ; 
set_cl ip (FALSE,?(pict_work); 
rst_data_Hork(i ; 

itoa(froffis,frGffi5^str) ; it Convert froms to a string ti 

itoa(tos,to5_str) ; it Convert tos to a string 1/ 

vst_height (data_hndl ,char_fine, &gl_wchar, Srgl hchar , 

&gi_wcbar , gl hchar 1 ; 

y jtext (datajindl ,data_work.g_x+j,datajiork.g_y+ydata*8,frDBS_str) ; 
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v_gtext (data_hndi , data_work.g_x+25,data_Nork.g_y+ydatalB, "To" ) ; 
v_gtext (data_hndl , data_«ork . q_x+ 50, data_H0rk.g_y+ydatatS,t05_str) ; 
v_y tex t (data_hndl , data_Hark.g_x+75,dataji*ork.g_y+ydataJ8,iean) ; 
v_gtext (data^hndl , data _work.g_x* 130, data_ work. g_y+v flat a 18, side v) j 
v_q t ex t (data^hndl ,data_work,g_S';tl90,data_work. q_y+ydata>3. f rac) ; 
vst_height (datajindl ,charjiediu*, &gl_wchar, &gl_hchar, 
fcgl_wchar , gl_hchar); 

&av£ < _data_work 0 ; 
rst_data_work 0 ; 



vdat a +*5 



set_pi ct^work (TRUE) ; 
set ip (TRUE, lcpict_work) ; 
rst_pict_worH) ; 

} it I ab_f astwindow ( ) ti 



it if 

It lab_slow_windowO t! 

/ 1 1 / 

VOID 

lafc_siow_winric«(f roiis, tos, cnane) 

pIORj frossjtos; 

BYTE tcnaaie; 

{ 

BYTE tro»5_strC53,tos_5tr[5]} 

set_data_work (TRUE) ; 
set_chp (TRUE,fcdata_nork); 
rst_data_work() ; 

itoa(ircffiS,*froii5_5tr) ; /( Convert froras to a string 1/ 

itoattos, tos_str) ; It Convert tos to a string ti 

V5t_height(data_nndl , char i ne, Stg ] wchar , &gl_hchar, 

&gl_wchar , gi_hchar); 

vgt ex t {datajindl ,data_work.g j+j,data_wDrk.g_y + ydatai&,fro®s_5tr} ; 
v_gt ext (datajindl ,data_work.g_x+25,data_work.g_y+ydatat8, “To"); 
v_g t ex t (data Jmdl ,data_work.Q_x+50,data_HGrk.g_y+ydatai8, tos^str) ; 
v^gtext (data_hndl,data_work.g - x+7j,data_«ork.g_ytydatat8,cnairie) ; 
vst_height ( dat a hndl ,char_»ediu», &g!_wchar, *gljichar, 
igi^iichar , gl _hchar > ; 

save_data_work () ; 
r5t_data_wark() ; 



It This routine writes the ti 
It information that has been l / 
it entered to the oata window if 
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ydata+t; 



5 et_pi ct_«or k (TRUE) ; 
set_c lip (TRUE,&pict_work) ; 
rst_pict_work 0 ; 

} ft Iab_slow_windowU i / 



It - -*/ 

it do plot II 

It 1 t! 

VOID 

do_plot 0 



&ave_data_work{); 
set_cl ip (FALSE, ipict_*orH; 

&et_dat a_work (TRUE) ; 

5et_clip(TRUE,&data_work) ; 

vst _hei ght (data_hndl ,char_fine, &gl_wchar, kgl_hchar, 
&gl_wchar , ql hchar } ; 

ydata++; 

v_gtext (dats_hndl ,data_work,Q_x+5,data_work.g_y J -ydatatB, 
“PLOT RELIABILITY HAs’bEEN CALLED”) ; ydata^; 
vst, height idata_hndl ,char_sediu&, fcgljrfchar, &gi_hchar, 
&gl_wchar , gl_hchar); 

&ave_data_wcirk 0 ; 
rst_data_worl 0; 
set _pi c t _wor k (TRUE) ; 
set_c lip (TRUE, Sipict_work) ; 



It- - ti 

It do_hardcopy t I 

,t 1 ti 



VOID 

du_hardcopyi) 

r 

£3Ye_data_worfc 0 ; 
set_cl ip (FALSE, &pict_work) ; 
set _data_work (TRUE) ; 
set_clip(TRUE,Mata_*ork) ; 

vstjieight (data_hndl , char i ne , &gi_wchar. Stgi _hchar , 
lfQl_wchar , gl_hchar); 

ydata++ ; 

v_gtext (data_hndl , data_work.g_x+5,data_work. g^y+ydataiB, 
"DO HARD.COPY HAS BEEN CALLED") ; ydata**; 
vstjieight (datajndl ,char_»ediuii, fcql_wchar, fcgl_hchar, 
&gl_wchar , g 1 _hc har ) ; 
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savs_datd_work 1) ; 
rst_data_»iOFk 0 ; 
set_pi ct_«or k (TRUE) ; 
set_clip (TRUE, &pi ct _wor k > ; 
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APPENDI X D 

SURE COMPUTATION LISTING 

This Appendix contains the modules required to do the 
SURE Computations. The modules are generally the original 
SURE computations modules converted from Pascal to C. 
Several additional modules were required for the interface 
into the GEM environment. 

The enclosed listings are not the final listings of the 
SURE program. The latest listings are available on disk. 

The computation module contains debugging aids, the 
module is not fully functional. 
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/mmnmmmuumnumutiMmmmmtmnummtmtn/ 



/ 1 1 1 

/? This is the SURE-Coapute portion of the SURE program. All ti 
ft routines necessary to 1 ®p 1 emen t the following functions are M 
it contained in the routine; ti 
It Computation ti 
It tf 
it Jann c. Eordeaux ti 
it Naval Postgraduate School ti 
it Master’s Thesis ti 
it ti 



ixnuutnxutxxuxuxttunxttttnxuutttxnttuntntxttxttttmnti 



it 




— ti 






it includes 


ti 






it 




- ti 






/♦♦indue 


is <stdio.h> 


t ! 






♦include 


’portab.h" 




It portable coding conv 


ti 


♦include 


“machine. h E 




it machine depndnt conv 


ti 


♦include 


E obdefs.h u 




it object definitions 


t! 


♦include 


■treeaddr.h" 




ft tree address macros 


ti 


♦include 


“gembind.it 0 




it gem binding structs 


tf 


♦include 


,! sure.h H 




it SURE apl resource 


ti 


♦include 


■»ath.h“ 




it lattice c 


ti 


♦include 


"Halts. h“ 




it lattice c 


ti 


♦include 


“optstrct.h" 








♦define 


TEjn.EN(x) 


ix*24) 






it 




— - - ti 






ft preprocessor utilities ti 






it- 




■ ti 






♦define 


MAlLGC(x) 


( (s IS alloc i 


isizecf (x)i) 




♦define 


CALLuCCn, x 


:) ((x t) calloc(n, si 2 eof (x ) ) ) 




It 




1! 






it 


OPT /SURE defines ti 






ft 




- ti 






♦define 


END_UF DATE 








♦define 


BEG_Uf DATE 


i 






♦define 


HAXSTATE 


100 


it maximum number of states 


ti 


♦define 


MAXTRANS 


200 


it maximum number of transition 


ti 


♦define 


ETCALC 


0 


it Whites algebraic formula, E(t ) ti 


♦define 


START 


1 


It indicates the start state 


ti 


♦define 


GEOMETRIC 


FALSE 


it deselect geometric 


t 


♦define 


prn: 


EPSHSS10.FNT 






♦define 


minreal 


0.29e-38 






♦define 


maxreal 


1.70e3S 






♦define 


i dl eng 


8 






♦define 


NULLA 


0 


it pointer value for error 


ti 


♦define 


ALLOCSIZE 


1000 


it size of available space 


ti 
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1 / 

tl 



static char allccbuf [ALLOCSIZE j; ll storage {or alloc 

static char tallocp = allocbuf; ft next free position 



ft-— -*/ 

It External Functions if 

It 1 1 



EXTERN LONG dos.alloci); 

EXTERN DWORD DOS.ERR; 

It 1 f 

ft Global Data Structures %i 
It ti 

BOOLEAN predst [MAXSTATE 3 : 

extern struct statejoe state_ar rayCMAXSTATE] ; 

DEhTHREC l-f death; 

TRANREC IsuccsttMAXSTATEl; 

INCGN tinconlist; 



WORD 


TINE = 


10; 




ft fission time 


a 


WORD 


POINTS 


= ? 5 ' 
*- J > 




It nuiber of pts plotted/calc 


tl 


LONS 


PRUNE = 


0.0; 




It deactivate the pruning 


tf 


WORD 


WARND 1 S 


= 1 ; 




It set UB acc. to two digits 


ti 


WORE 


TRUNC 


= 3 ; 




ft set loop traversals at 3 


ti 


WORD 


L 3 FACT 


- 20; 




ft sets the Ki and Kj = 20 


tl 


WORD 


LIST = 


2; 




ft sets the ouput level 


tf 


ft 






M 






It external variables 


ti 






it 






■tl 






extern 


WORD 


gi_wcr»ar ; 




It character width 


tf 


extern 


WORD 


gl_hchar; 




ft character height 


tl 


extern 


WORD 


g 1 _wbox ; 




ft box (cell) width 


tf 


extern 


WORD 


gl_hbcx; 




ft box (cell) height 


tf 


extern 


WORD 


9I rmsgCB] ; 




ft message buffer 


tf 


extern 


WORD 


gl_hspace; 




It Ht. of space between lines 


l i 


extern 


WORD 


SURE_pen; 








extern 


WORD 


SURE_shade; 








extern 


WORD 


PENjRASE; 








extern 


WORD 


title; 








extern 


WORD 


yd at a; 




It Current data line 


ti 


extern 


WORD 


radius; 




It Cureent radius of state 


ti 


extern 


WORD 


ge«_hanri!e; 




ft BEH vdi handle 


tl 


extern 


WORD 


vdi_handle; 




It SURE vdi handle 


tl 


extern 


WORD 


work_outC 573 | 


1 


It open virt workstation values t / 


extern 


WORD 


ev_which; 




It event aulti return state (s) 


tl 


extern 


WORD 


vdi_handle; 








extern 


WORD 


curr_hndl ; 








extern 


WORD 


pict_hndl; 




It SURE window handle 


tf 


extern 


WORD 


data_hndl; 




It SURE data window handle 


tf 
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extern 


WORD 


pen_shade ; 


it 


saved pen shade 


1 / 


extern 


WORD 


SUREJieight ; 


it 


SURE current char height 


1 / 


extern 


WORD 


char_f ine; 


It 


character height for tine 


1 / 


extern 


WORD 


charj&ediu#; 


It 


character height tor medium 


tl 


extern 


WORD 


char_broad; 


It 


character height for broad 


If 


extern 


WORD 


ionuffiber ; 


It 


mouse fore nuiber 


t! 


extern 


LONG 


aofaddr ; 


It 


fiouse form address 


tf 


extern 


WORD 


file_hanule; 


It 


file handle -> pict lri/sv 


t / 


extern 


WORD 


keyjibeo; 


It 


x posit for line beginning 


1 / 


extern 


WORD 


key _ybey ; 


It 


y posit for line beginning 


ii 


extern 


WORD 


ke/_xcurr; 


It 


current x position 


ti 


extern 


WORD 


key^ycurr; 


It 


current y position 


ti 


extern 


WORD 


runno; 


It 


run number 


ti 


extern 


WORD 


pathcount; 


it 


number of paths 


tl 


extern 


WORD 


cnttrunc; 


It 


nuiber of loops truncated 


tl 


extern 


WORD 


cntprune; 


It 


nuiber of paths pruned 


tl 


extern 


WORD 


bigst; 


It 


largest state entered so fart/ 


extern 


WORD 


i; 








extern 


WORD 


num_5tat es ; 


It 


number of states entered 


ti 


extern 


DWORD 


m_out ; 


It 


douse in/out of window flag t! 


extern 


DWORD 


mousex, mousey; 


It 


mouse x,y position 


ti 


extern 


DWORD 


bstate, bdicks; 


It 


button state, L i of clicks 


ti 


extern 


DWORD 


kstate, kreturn; 


It 


key state and keyboard char 


ti 


extern 


LONG 


ad_r tssg ; 


It 


LONG pointer to message bfr 


ii 


extern 


LONG 


Gl_ftenu; 


it 


menu tree address 


tl 


extern 


LONG 


drawaddr; 








extern 


GRECT 


curr_work; 


It 


work area of current window 


ii 


extern 


GREET 


pict_work; 


it 


work area of picture window 


ti 


extern 


GREET 


pictured; 


it 


work area of picture window 


ii 


extern 


6RECT 


data_work; 


It 


work area of data window 


ti 


extern 


GRECT 


curr jindo; 








extern 


GRECT 


pict_undc; 








extern 


double 


speclow; 


it 


variable range value 


ti 


extern 


double 


spechighj 


It 


variable range value 


ti 


extern 


double 


spec val ; 


it 


special variable value 


ti 


extern 


double 


ubf ai 1 


it 


prob of system failure 


t! 


extern 


double 


1 fat' ail ; 


it 


lower bound of failure 


ti 


exte r n 


double 


e_of_t; 


it 


E(T) computation result 


ti 


extern 


double 


e_of_t_del ; 


It 


E (T-l ) computation result 


ti 


extern 


double 


p i al pha ; 


it 


product of the alphas 


t! 


extern 


double 


lowbf , 1 owbg ; 


it 


intermediate results 


ti 


extern 


BOOLEAN 


key_i nput ; 


it 


key inputting state 


ti 


extern 


BOOLEAN 


erun; 


ft 


runtime errors flag 


ii 


extern 


BOOLEAN 


nonlinear; 


it 


nonlinear flag 


ti 


extern 


BOOLEAN 


et_bad; 


ft 


E <T) comp, is inaccurate 


ti 
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extern BOOLEAN rec_siow; it recovery too slow tl 
extern BOOLEAN std_big; it Rec Std. too big tl 
extern BOOLEAN rate_big; it Exp. rate too last ti 



It- ti 

It ifiit_pointers() 1/ 

it — ti 

imt _pointers() It initiate succst array ti 

r 

\ 

WORD 1 ; 

BYTE nuft_stri203; 

(death - OLj 



ltoa( (LONG) (death, nu»_str); 
dc-sjrintl (nut&_str) ; 

(or ( 1 = 0; i <= HAXSTATE; i++) 
succstCil = NULLPTR; 

} it mit_pointers() ti 



it - ti 

it allocO ti 

it ti 

BYTE 

talloc(n) It return pointer to n characters, ti 

WORD n; 

\ 



ailoco + n <= allocbul 


+ ALLOCSIZE ) H tits 


ti 


allocp + = n; 


return (al 1 ocp - n>; 


it Old p 


if 


return ( NULLA ) : 


it not enough roof. 


ti 



} it alloc l! ti 



it- -1/ 

it IreeO ti 

it - - ti 

(ree(p) it free storage pointed to by pi/ 

BYTE Ip; 

{ 



i((p >= allocbut It It p < allocbuf + ALLOCSIZE ) 
allocp = p; 

) it free!) 1/ 
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ft 1/ 

It power!} 1/ 

ft - 1/ 

WORD 

power ( x , n ) ft Raise x to n-th power; n>0 tl 

WORD x, n; 



WORD i, p; 

P = 

tor ( 1=1; i <= n; ++i ) 
P = P t x; 
return (p) ; 

} ft power 0 if 



ft — - if 

ft printdsO tf 

It — - tt 

VOID 

printds (n, string) 



WORD n; 

BYTE string[643; 

{ 

WORD i, li; 

BYTE te*psti641; 

i = 0; 

ii = 0: 



if ( n < 0 ) 

{ 

n = -n; 

stnngCiit+j = 7 - 7 \ 



do 

{ 

te»p5tii*t+j = n X 10 + r 0’; 
} while ( (n 1= 10) > 0 ); 

while ( — i >= 0 ) 

5trinQ[ii++3 = teispsttiJ; 
strinyiii] = ? \0’; 

) ft printdsO tf 
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it 1/ 

It total) t! 

ft 1! 

VOID 

fotai n, 5 ) ft Convert n to characters in si/ 

BYTE si64 ]; 

double n; 

{ 



WORD i,ii, sign; 

WORD n, pow; 

BYTE string[643; 
double x, tempx ; 

i = 0; 

if i n < 0 ) It record sign 1/ 

{ 

sCU+3 = — j 

n = -n; it sake n positive if 

) 

pow = 0; 
whilei n < 1. ) 

{ 

po«— ; 
n = n 1 1 0 ; 

} 

whilei n > 10. 0 ) 

{ 

pow++; 
n = n/10; 

} 

® = lint) n; 
printdsia, string) ; 
strcpy (sti , string) ; 
l = strlenis); 

s[i++] = V; 

x = n-m ; 

while( (x !=■ 0.0 ) » ii < 6) ) 

{ 

te&px = x; 
te»px t = 10; 
n = (int) tespx; 
sl i ++ ] = ii + 43 ; 
x = teapx - ii; 

} 
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if( pow != 0 ) 

i 

\ 

sLi++j = ? E‘ ; 

a ( pow >= o ) 

sti ++ ] = 7 +'; 
printds (povf , string) ; 
strcpy (s+i , string); 

) 

else sti! = J \0'; 
return; 

} it Total) 1/ 



it 1 1 

it f indtran 1/ 

/!-- XI 

BOOLEAN 



f indtr an i -f r oms, tos , paean ,pstdev,pfract) 
statetypes froas, toe; 

VALREC Ipaean, Ipstdev, ip*f ract ; 



TRANREC Ip; 

BOOLEAN found; 

dos_printf (Tindtran has been entered*); 



{ 

p = succstEfroasI; 
tound = FALSE; 
while { p != NULLFTft ) 

if ( p->st == Ids) 

{ 

found = TRUE; 
paean- >coet = 
pfcean->base = 
pstoev-koef = 
pstdev->ba5e - 
pfract->ccef = 
pfract->base = 

y 

i 



it Transition 



p->aean.coef ; 
p-hiean.base; 
p->stdev. coef ; 
p->stdev.Dase; 
p->fract.coef ; 
p->f ract . base; 



found 



p = p-)ne>;t; 

> 

} 



dosjrintf ( H Fi ndt ran has been exited 6 ); 

return (found) ; 

} ft findtran 1/ 



1/ 
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/<- </ 

/I itranschk tf 

ft 1/ 



WORE 

itranschk (trofl5,to5,nslow,nf ast) 
WORD Groffs, tos; 

WORD nslow,nfast; 



TRANREC Ip; 

WORD found: 

dD=_pr i r;t+ ( ‘itranschk has been entered"); 

"{ 

p = succstifrofes]; 
found - 0; 
nslow - 0; 
nfast = 0; 

while (p » = NULLPTR) 

r 

\ 

if ( p->st = tos) /i Transition found tf 

found = fcuno + 1; 
if ( p->st >= 0) 

{ 

if ( p->stdev.base =- -1.0) 
nslow = ns! on + i; 

else 

nfast = nfast + 1; 

\ 

p = p->next; 

\ 

i 

i 

dos_prmtf ("Itranschk has been exited"); 

return (found); 

} ft itranschk if 



ft tf 

ft enter!) tf 

ft — - 1/ 

VOID 



enter (fross, tos, paean, pstdev„pfr act) 
statetypes f r o*s, tos; 

VALREC Ipmean, fpstdev, Ipfract; 
{ 

TRANREC Ip; 

VALREC vi, v2, v3; 

BOOLEAN fnd; 

BYTE nuffi_str[64j; 
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dos_printf ("Enter has been entered"); 
set _d ip (TRUE, &data_work) ; 

vst_height (data_hndl,char Jine,^l_wchar,&gl_hchar, 

Itgl _wchar , g 1 _hchar ) ; 

{ 

f nd = f indtran (f rons, tos, &vl ,8?v2 , &v3) ; 
if ( kid ^ (tos == -1) ) 

{ 

v a t e s t (data_ftndl ,data_*ork.g_x+j, data_work.g _y+ydata<6, 
” D UM HOLDING TIKE AIREABY~ENTEREBM ; 
ydata++; 

) 

else 

{ 

predstCtos] = TRUE; 
if( froffis > Digs! ) 
b i 9 5 1 = 4 roiis ; 
iff tcs > bigst ) 
bigst = tos; 

if i ( froas ) NAXSTATE) 1! (tos > HfiXSTATE) 

! ! ( -frees < 0) 11 (tos < -1) ) 

{ 

v_gtext (data_hndi , data_work. g_K+ 5 , data_work.9_y+ydatalB, 

“tin STATE OUT OF RANGE 6 ) ; 

ydata++; 

i 

/ 

else 

{ 

p = HALLOC(TRANREC) ; 
p ~ >5 1 = tos; 

p->next = NULLFTR; 
p-)(cean,base = paean->base; 
p->*ean.coef = pnean-koef ; 
p->stdev.base - pstdev->base; 
p-ktdev.coef = pstdev-kcef; 
p->tract.base = pfract->base; 
p-Mract.coef = pf ract-koef ; 
p->next = succsttfroasJ; 
succsttf rcffisl = p; 

do£_printf ( “The pointe? - for p follows"); 

Itoaf (LONG) p . nufi»_str ) ; 
dos_printf (num_ 5 tr) ; 
fota(piTiean->base,nuffi_5tr) ; 
dcs_printf (nu«_str ) ; 
fota(pstdev“>base,riuiTs_5tr} ; 
dos pr i ntt (nu*_str) ; 
fota(pfract->base,nuir^5tr) ; 
oos_printf (nuiR^str ) ; 

> 

/ 
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} 

dosjirintf (“Enter has been exited 11 }; 
set_dip (FALSE, idatawork ) ; 

vst hei ght \data_hndl , char_»edi a®, 1 _wchar , hcnar , 
&gi_Mchar,gl_hchar); 

} It enter 0 1/ 



It t! 

It CflpO tl 

It - -1/ 

double 
cffip (pv) 

VALREC I p v ; 



do5_printt ("cap has been entered and exited**) ; 

return! pv->base + (pv-)coef ) t specval ); 

} /* CBp 0 tl 



It tl 

It clear tl 

It 1! 

VG ID- 
clear 0 



TRANREC U, 1 1; 

WORD i; 

{ 

tor ( i = 1; l <= Digst; i+t ) 

{ 

iU succstLi ) [ = NULLPTR ) 

/ 

\ 

t = succstLil; 
while! t != NULLPTR ) 
{ 

1 = t; 

t - t-)next; 
freeil ) ; 

} 

succst E i 3 = NULLPTR; 

} 

predsttil = FALSE; 

s 

bi gst = -1; 

t 

i 

} it clear ti 
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ft «/ 

/l approx et(> %! 

ft - 1 * 

douDl e 

approx_et (ep,et) 

EREC ~ iep; 
double ffit; 



double e_of_t; 

WORD k; 

BYTE nuft_5trtM3; 

ticsjrintf ( fi approx_et has been entered"}; 
e_of_t = 1; 
k’= 0; 

e_of_t_del - 1; 
whilefep '= NULLPTR) 

{ 

dos_printf ( °The value for k follows”); 

itca(k,nua_str); 

dos_pnntf (nun_str ) ; 

!toa((LQNG)ep,nu*_str}; 
dos_printf ( nu*_str ) ; 

desjrmtf ("The value for ep-Mambda follows"); 
fota(ep->la<ibda,nua_5tr) ; 
dosjrintf (nun^str) ; 

des_printf ("The value for e_of_t follows"); 

fota(e_of_t,nuffi_str); 

dosjrintf (nuin^str) ; 

dosjnntf ("The value for it follows"*; 

fota(ifit,nu#^str); 

dosjrintf (nua_str) ; 

e_of_t = ep->I 3mbda i e_of_t i st/k; 
ep = ep->next; 

dosjrintf ("The pointer for ep,EREC,in the while loop folio 
1 t oa ( (LONG) ep , nu*_str ) ; 

dosjjrintf (mi«_str ) ; 

*. 

/ 

fota i ,e^cf_t,nuffi_5tr); 
dos_pnntf (nua^str ) ; 

dosjnntf ("approx_st has been exited”) ; 

return (e_cf _t ) ; 

} It approx_et X! 
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ft — tf 

It returncntO 1/ 

ft - tf 



WORD 

returncnt (cs,h) 
statetypes cb; 

HIST th: 

; 

WORD c; 

dos_prmtf ( H retur net has been entered 8 ); 
c = O; 

while* h NULLPTR ) 

{ 

if ( h->st == cs ) 



c+*; 

h = h->next; 

} 

return ( c ); 

} 

desjjrintf ("returnct has been exited 8 ); 
} ft returncnt 1/ 



ft tf 

it hcopy tf 

it tf 



VOID 

hcopy (hp,np) 

HIST Ihp, tnp; 

{ 

HIST top, tip; 

BYTE nuii_strtl03; 
dos_pr i nt+ (“hcopy has been entered 8 ); 

np = NULLPTR; 
while! hp != NULLPTR ) 

{ 

op = Ip; 

Ip = fiALLOC (HIST) ; 

dos_printt ("The pointer for Ip, HIST follows 8 ); 
1 toa ( (LONG) 1 p , riu»_str ) ; 
dos_printf (nuffi_str) ; 

lp->st = hp->st; 

!p->next = NULLPTR; 
if( np == NULLPTR) 
np : lp; 

else 

op->next = lp; 
hp = hp- >nex t ; 
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doe print-f ("hcopy has been exited 3 ); 
} ft hcopy tf 



it ti 

ft ecopyO M 

ft — X! 

VOID 

ecopy tep,npj 



EREC tep, tnp; 

X 

EREC top, tip; 

BYTE nu«_strCi03; 
dosjrintf ("ecopy has been entered"); 

np = NULLPTR; 

while ( ep != NULLPTR ) 

r 

X 

op = Ip; 

lp = MALLQC(EREC); 

do5_printf ("The pointer for Ip, ERE l folio 

ltoa((LQN6)!p,nu§_str); 

dos_pnntf (nu*_str ) ; 

1 p- >nex t = NULLPTR; 
lp->ia»bda = ep- >1 ambda; 

1 p- >ga*5ffia = ep->gae»®a: 
it( np == NULLPTR ) 

np = lpi 

else 

op->ne>; t = lp; 
ep = ep->next; 

} 

dos_printf ("ecopy has been exited* 1 ) ; 

} ft ecopyO t! 



ft ~ if 

ft haddO 1/ 

ft - if 

VOID 

had d ( C S j h ) 



statetypes cs; 

HIST th; 

{ 

HIST tip; 

BYTE numstrC 10 j ; 

dosjrintf ("hadd has been entered"); 



Ip = h; 

h = WALLOC (HIST J ; 

tiosjjrintf ("The pointer for h,EREC f ol 1 ow= H ) ; 
Itoa ( (LONG) h,nu*_str ) ; 

do5_printt (nuffl_5tr); 
h->st - cs; 
h->next = lp; 

dos_printf ("hadri has been exited 3 ); 

} It haddU li 



it tl 

It addtoelistO tf 

It — tl 

VOID 



addtoelist (C5,cp,ep,nep) 
statetypes cs; 

TRANREC icp; 

EREC tep, tnep; 

t 

\ 

double gamma; 

TRANREC Ip; 

double c*p(); 

BYTE nu«_str [ 103 ; 

dos_printt ("addtoelist has been entered 1 ); 

gaffiita = 0.0; 
p = succstCcsl; 

whi I e ( p ,= NULLPTR ) It All are exponential 1/ 

r 

i 

if( p ! = cp ) 

gaftaa = gamma + cap (&(p-)ineari) ) ; 
if( c#p(&(p->Bean)} > (TIKE/10.0) ) 
rate.big = TRUE; 
p - p->next; 

} 

nep = HALLOC(EREC); 

dos_print*f (“The pointer for nep, EREC follows"); 
ltoa( (LGHG)nep,nui_str) ; 
do5_printf (nue^str) ; 

nep->laribda = c»p{lc(cp->ffiean) ) ; 
nep->gaaR3 = gamma ; 
nep->next = ep; 

dos_printf ("addtoehst has been exited 3 ); 

} It addt oei i st 1 / 
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/*— */ 

It deathO ti 

It 1/ 

BOOLEAN 
death (p ) 

TRANREC ip; 



dos_printt (“death has been entered 8 ); 

"if ( p == NULLPTR ) 

{ 

dos_pr intf (“return TRUE 8 ); 
return(TRUE) ; 

} 

else 

{ 

des_printt (“return p->st = -i n ); 
return' ( p->st == -1 ) ( p->next == NULLPTR) ); 

} 

dosjrintT {"death has been exited 8 ); 

} It deathO 1/ 



It l! 

it addtodeathO tl 

il 1! 

VOID 



addtodeath (ds, ep, hp, lb, ub, delta) 
statetypes ds; 

EREC t ep; 

HIST ihp; 

double lb, ub, delta; 

r 

DEATHREC id; 

BOOLEAN tound; 

WORD 1c; 

BYTE ]bstr[323 y ubstr[32],nu»_strU 51; 

dos_prmtt (“addtodeath has been entered 8 ); 



iff LIST >= 5 ) 

{ 

v_gtext (data_hndl ,data_work.g_x+5,data_wQrk. g_y+ydata<8 ? 
5 iiii ADDTODEATH ENTERED 8 ); 

It cak_etiep, delta); i! 
ub = ub*e_of_t; 
lb = !biej)f_t_del; 

/data++ ; 

} 
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if t LIST >= 2 ) 



\ 

i tea (d-)st ? nu»_st r ) ; 

vjjtext (data.hndl , data^wor k. +5, data_wor k . g_y+ydata*a ? 

nu*_str ) ; 

■f ota (1 b , 1 bstr ) ; 

v_q1ek t (data_rmdi,data_work.gj+83,data_work.q_y+ydata*8, 

1 bstr ) ; 

■f Dta iub, ubstr ) ; 

v_gtext (data Jindl ,data_NQrhg_x + iM,data_worLg_Y+ydatat6, 
ubstr ) ; 

ydata++; 

if ( et_bad ) 

{ 

v_gtext (data^hndl ,dsta_work.g_); + j,dat5_work.9_y+ydataj8, 
"tttt E(T) INACCURATE 7 ) j 

ycata+t; 

} 

et_bad = FALSE; 

3 

ri = f death; 
found - FALSE; 
while? d ' = NULLPTR ) 

{ 

ifi d - > e t == ds ) 

{ 

found = TRUE; 
d->lprob = d->lprob + lb; 
d->uprob = d->uprob + ub ; 

d = d-)ne>: t ; 

} 

if ( 'found ) 

r 

d = KALLQC (DEATHREC) ; 

dos_printf (“The pointer for d, DEATHREC toll ows K ) ; 
ltoa( (L0NB)d,nu»_5tr5 ; 
dos_printf (num_str ) ; 

d->next = NULLPTR; 
d->st = ds; 
d->lprob = lb; 
d->uprob = ub; 
if ( f death == NULLPTR ) 
fdeath = d; 

else 

{ 

d->next = fdeath; 
fdeath = d; 

/ 

} 
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i {( LIST >= 3 ) 

< 

v_gtext (data_hndl , data_work. g_x+5, data_work . g_y+ydatat8. 

Mill ADDTO DEATH ENTERED"); 
ydat a++ ; 
lc = 1; 

while I hp != NULLPTR ) 

{ 

v_gtext (datajmdl ,data_work.g_x+j, data_work . g_y+ydatat3, 
WRITE OUT THE STATE"); 

ydata++; 

if { ilc l 10) == 0 ) 

{ 

v_gtext (data_hndl ,data_work.g j+j,data_work.q_y + ydatai2, 

Mill PRINT OUT THE ERROR 3 ); 
ydata+ 4 -; 

} 

hp = hp->next; 

Ic++; 

} 



save_data_work 0 ; 

do5_pr int-f ("addtodeath has been exitea H ); 
} It addtodeath 1/ 



it- 1/ 

It allexpoO tl 

It 1/ 

BOOLEAN 



allexpcUp,uc,sig2c) 

TRANREC lip; 
double uc, sig2c; 

BOOLEAN tallexpo; 
double cap ( # ; 

dosjrintf ("allexpo has been entered"); 

tallexpo = TRUE; 
uc = -1; 
siq2c = -1; 

while! Ip ! = NULLPTR ) 

{ 

if ( lp->st >= 0 ) 

{ 

if( cap (Sc(lp-)stdev ) ) >= 0 ) 
tallexpo = FALSE; 
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else 



uc = cap iSc(ip->ftean) ) ; 
si q2c = cap<fe(lp~>stdev> ) ; 
si g2c = sig2c t sig2c; 

} 

Ip = lp->next; 

} 

dos_pr i nt *f ("aliexpo has been exited"); 

retum(tallexpo) ; 

} It ai i expo XI 



It -*/ 

It allexpoIeeO X! 

!t xi 

BOOLEAN 

allexpolee(p) 

TRANREC Ip: 



BOOLEAN tallexpolee; 

tallexpolee = TRUE: 
while ( p ! = NULLPTR ) 

{ 

if( p- >st >= 0 ) 

{ 

itt csp ( It <p->tr act ) ) > 0 ) 
tallexpolee = FALSE; 

y 

J 

p = p->next; 

} 

return (tal lexpol ee) ; 

} It al 1 ex pol ee ( ) 1/ 



It 1 / 

It traverseO XI 

IX ----</ 

VOID 



traverse (cs,hp,Ep, lb, ub, delta) 
statetypes cs; 

HIST thp; 

EREC lep; 

double lb, ub, delta; 

{ 

TRANREC Up, Ip; 

EREC Uep, tnep; 

HIST tnhp; 
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feiGRD 


retc, returncnt ( ) ; 




double 


alpha, uc, s i g 2 c ; 




double 


(nr., std, frac, taom, fl, 




double 


del t abates, ri, si ; 




double 


oldlb, oldub, suafract, 


su«expo ; 


double 


approx_et 0 ,cep i) ; 




BYTE 


nu*_str [20 j , p^axstr [321 ; 





dos_printf (“Traverse has been entered"); 
retc = returncnt <cs, hp) ; 
if ( LIST >= 5 ) 

v_qtext (dat a_hndl 9 data_work. g_x+5, data_work . Q_y+ydata*S, 

•—’traverse — CS,’lB, UB U ); 

ydat ; 

i f ( retc>= TRUNC ) 

{ 

cnttrunc++; 

it ( LIST >= 4 ) 

.* 

X 

pft6>: = ubiappro>:_et(ep,TIi1E); 
dos_printr ( fl ep following paax in traverse follows 15 ); 

I toa ( (LONG) ep , nu*_str ) ; 
dos^printt ( nuft^st r ) ; 

vjtext idat a_hndl ,batd_wQrk.g_x+j,bsta_work.g_y+yriataiS, 
“Loop At State"); 

1 toa (c£, nuff._5tr ) ; 

v_gtext (datajindl , data_work«g_x+85, data^wor k - Q_y+ydata<S, 
nua_str) ; 

f ot a ( pftax „ paax st r ) ; 

v_gtext (data^hndl , dat a_wcr k . +95, dat a_work . g_y+ydaialc, 
pnaxstr) ; 

ydata+S’ 
goto I ab°99; 

i 

} 

else 

»• 

V 

pitiax = iibiapprox_et (ep , TIME) ; 
dos_printf ( B ep following paax in traverse follows 9 ); 
ltcai (LONG) ep, nu»_str ) ; 
dos_printf (nuftstr ) ; 

if( paax <= PRUNE ) 

{ 

cntprune++; 
if ( LIST >= 4 ) 

{ 

v_gtext idata_hr»dl ,ddta_work.y_xtj,data_Nork.g_ytydfitatS, 
"Path Prune at"); 
itoa(c5,nuffi_5tr); 

v_gte>:t (data_hndl ,data_work.g_x+85,data_work,g_y+ydatat6, 
nu*_str) ; 
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ydata++; 

} 

goto lab999; 

i 

} 

nhp = MALLOC(HIST); 

dos_printf ('The pointer for nhp, HIST foil owe 9 ) ; 
ltoa( CL0N6)nhp,nu#_str ) ; 
dos_printf (nua^str) ; 
nhp->st = cs; 
nhp->next = hp; 
p = succstlcsl; 

dos_pr i nt f ( p The pointer for p,succstt] f ol lows”} ; 

ltoa((LCNo)p,nu*_str); 

dcsjrintf (nu©_str > ; 

if ( death (p) ) 

{ 

addtodeath(cs,ep,nhp,ib,ub,del ta) ; 
pathcount++; 

i. 

else if{ al iexpo (p, uc, sig2c> ) 

{ 

while ( p != NULLPTR ) 

< 

i f ( p->st >= 0 ) 

{ 

doE_pr i ntf ( a ep prior to addtoelist in traverse follows”;; 

itoai(LGNS)ep,nu®_str); 

dos^printf (nu#_str) ; 

dosjrintf ( e nep prior to addtoelist in traverse follows"); 

Itoal (LONG) nep, nu«_str ) ; 
dos_printf (num_str ) ; 

addtaelist(cs,p,ep,nep); 

dos_printf ("nep after call to addtoelist in traverse follows"); 
1 toa ( (LONG) nep , numstr ) ; 
dos_pnntf (nu*_str); 

dos_printf (“nhp prior to call to traverse in traverse follows") 

itoa((LGN6)nhp,nuffi_str); 

dosjrintf (nu«_str); 

traver se(p-)st, nhp, nep ,lb,ub, delta); 
dos_printf (“The pointer for nep , EREC , to be freed follows 5 ); 

1 toa < (LGNG)nep,nuffl_str) ; 
dos_printf (nu«_5tr) ; 

free (nep ) ; 

} 

p = p->next; 

} 

} 
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else 

{ It — At least one transition from P not exponential — I / 

oldlb = lb; 
ol dub = ub; 

if! siy2c < 0 ) It Holding Into Not Found By fillexpo ti 

( It Appreciate Fros Transition Info ti 

uc = 0; 
siq2c = C; 

Ip = succst [c&3 ; 
susfract - 0.0; 
sunexpcs = 0.0; 
while! Ip != NULLPTR ) 

{ 

if! lp->st >= 0 } It Not Holding Tiae Info 1/ 

r 

\ 

an = cftp(Mlp-)aean) ) ; 
std = cap !& (I p->stdev) ) ; 

if ! std >= 0 ) It Fast Recovery Transition ?/ 

{ 

frac = csp(&(lp->fract)); 
uc - uc t fractsn; 
susfract = suuifract + frac; 
t so® - st d i st d + ssnlfin ; 
sig2c =■ 5ig2c + fracU*o»; 

} 

else it Slow Transition ti 

suaexpos = suffexpos + ®n; 

i' 

lp = lp->next; 

} 

if! abs(1.0-su#fract) > 1.0e-10 ) it Machine Dependent 1/ 
( 

erun = TRUE; 

vjtext idata_hndl ,data_work.g - x+5,data_work.g - y+ydatatB J 
K ttn ERROR uh SUH of EXITING") ; 

ydata**; 

si g2c = si q2c - uctuc; 



in LIST >= 5 ) 

r 

\ 

v_yte>; t !data_hndl,data_work.g j+5,data_work.g_y+ydata<8, 
"Write UC, Si g2c , and Siisexpos"); 

ydata+ + ; 



delta_at_cs = delta; 
while! p != NULLPTR ) 
{ 
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lb = Oidlb; 

ub = oldub; 
if< p->st )= 0 ) 

{ 

»n = cap (& (p“>ffiean) ) ; 
std = cap(fc(p->5tdev) ) ; 
tffiuffi = flint nn * stdtstd; 

if [ std >= 0 ) ft — Fast On Path — if 

( 

frac = c*p(fc(p->fract)) ; 
ub = ubifrac; 
if( LBFACT > 0 ) 

ri = LBFACTt s^n^std) ; 

else 

ri = sqrt(an); 
if ( ri <• Ainreal ) 

r 

l 

fl = 0.0; 

v_gtext (data^hndl ,dataj*ork.g_x+5,data_work.g_y+ydatat8, 
“Instantaneous Recovery Not Allowed"); 
ydata++; 

} 

else 

fl = ( 1.0-suAexposiAn - tAoi/(ritri) ); 
if ( f! <= 0 ) 

{ 

if ( LIST >= 5 ) 

{ 

v_gtext idata_hndl ,data_work.Q_x4j,ddta_work.q_y+ydatatB, 
"LIST >= 5 in Traverse, SG on AND DIH; 
ydat a++; 

} 

fl = 0.0; 

if( susiexpos > 0.1 ) 
rate_biy = TRUE; 
else if ( (tftQA / (ritri)) > 1 ) 
std.big = TRUE; 

else 

rec_slow = TRUE; 

lb = Ibtfractf 1 ; 
if! LIST >= 5 ) 

f 

V 

v_gtext (data_hndl ,data - work.g_x+j,data_worL.g_y+ydatalB, 
"Ri and Delta’ 5 ); 
ydat a++; 

j 

delta - del t a_at ce + ri; 

1 

e i se 
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{ It Slow on path transition t 

alpha = cffcp (a(p-)ftean) ) ; 
lib = ubtalphatuc; 
if ( LBFACT > 0 ) 

sj = LBFACT t < uc+sqrt ( si g2c ) ) ; 

else 

sj = sqrt(uc); 
tsoai = uctuc + si g2c ; 
if( sj <= rainreal ) 

{ 

f2 = 0.0; 

vjtext !data_hndl f data_work . g_x+5 f dat a_work - g_y+ydata$8 f 
"Instantaneous Recovery Not Allowed 8 ); 
ydata++; 

/ 

else 

t'2 = uc - tao&ji suftexpos/2-0 + 1.0/sj ); 



if ( f 2 <= 0 ) 

{ 

f2 = 0.0; 

if ( suf expos > 0. 1 ) 
rate_big = TRUE; 
else if ( uc > 0 . i ) 
rec_slow = TRUE; 

else 

std_big = TRUE; 
if( LIST >= 5 ) 

{ 

v_gtext (data_hndl,data_worlE.9_x^5 J data_work.§_y+ydatal8 f 
B mi F2 Negative ttt t B ); 
ydata++; 

i toa(cs f nufls_str ) ; 

v_gtext fdata_hndl , data_work- g_x+85 , data_«or k . g_y+ydata iB ? 
nam_str ) ; 
ydat a++ ; 

lp = succsttcsl; 

while! lp != NULLPTR ) 

«* 

\ 

if( lp->st >= 0 1 It Not Hcluin Tis>e I 

r 

\ 

*n = cup (It (1 p->nean) ) ; 
s t d = c*p{i(lp->5tdev)); 

v_gtext (data_hndl ,data_work.g_x+5,data_work.g_y+ydatalB, 
"tm To state’iunj’ 

i toa (lp-)st , nu®_str ) ; 

v _9 tex t idata^hndl ,data_work.g_x+105,data_work.g_y+ydatai8, 
nui_str) ; 
ydata++; 
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} 

} 



1 / 



Ip = ip->next ; 

It if list! eve! - 5 

I b = 1 blaiphatf 2; 
it « LIST >= 5 1 
{ 

y_gtext(data_hndl ,data_work.g_x+5,datajifork.Q_y+ydataiB, 
B ltli SJ,DELTA’uU B )j 
ydata++; 

/ 

delta = delta_at_cs + si; 

} 

it ( delta >= TIME ! 

{ 

vjtext (data_hndl , data_work. q„x+ 5, data^wor k . g^y+ydatatB, 
•ttii DELTA > TIME UU B ); 
ydata++; 

} 

tr averse (p->st, nhp.ep, I b,ub, delta) ; 

} 

p = p->next ; 

} it while 1/ 

} ft it 1/ 

dosjrintf ("The pointer tor nhp,HIST, to be treed follows - ); 
ltoa( (LQNS)nhp,nue_str) ; 
dos^printf (nuffi_str) ; 

■free(nhp); 
lab99?s ; 
save_data_work() ; 

dosjirintf (“Traverse has been exited 8 ); 

} it traverse 0 Xi 



ft ti 

it hdriO 1/ 

it ti 

VOID 

hdriO 



INCGN iincp; 
WORD iCjicnt; 



if i LIST > 0 ) 

{ 

It if ( Ieef lag == LEE ) 

{ 

v_gtext (datajindl ,data_wD! r k.g_x+5, dsta_work.g_y + ybata*6, 
H — LEE STATISTICAL ANALYSIS MODE 1 “ > ; 
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it Lee Analysis Mode To Be Added Later I 



ydata++; 

} t! 

incp = inconiist; 
lent = 0; 
while ( incp } = NULLFTR ) 

( 

lent**; 

t or ( i = 1; i <= ldleng; i++ ) 
if ( incp->id[i 3 == r 7 ) 
goto lab7; 

else 

{ 

v_gtext (data_hnd! ,data jiork.g j+5,data_work.g_y+ydatalB, 
incp->id[i 3) ; 
yd at a^+ ; 

} 

lab7: v_Qt ex t (datajmdl ,data_wor k.g jM5,data_work.g_y+ydatatS, 

incp->v) ; 
ydat a+ + ; 

if ( (ient I 3) == 0 ) 

r 

\ 

v_gtext (data_hndl , data_work,g_x+j,data_work.g_y+ydatdt3, 

H NULL in HDR1M; 
ydata*+; 

} 

incp = incp-)ne>;t; 

\ 

i 

if ( (icnt l 3) != 0 1 

{ 

vjtext (aata_hndl ,dat*_worLg_x+j,data_work.Q_y+ydatat8, 

* H ndrl used aore code required 6 ); 
ydata++; 

} 

} 

} it hdrKO t* 



It — 1/ 

it hdr 20 1/ 

it 1/ 



VOID 

hdr20 

{ 



v_gtext (data hndi , data_work.g_x+j,data work.g_y+ydatat£, 
“DEATHSTATE LDUERBOUND UPPERBOUND ■ ) ; 

ydata 4 -+; 

save_data_work(); 

} it hdr20 tl 
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it -1/ 

It hdr3() it 

It ti 

VOID 

hdr3(J 

{ 



v_gte>;t Idatajmdl ,dat2_work.g_K*5,dat£j»QrLg y+ydata* 
“HEADER NUMBER ’THREE CALLED”);” 

yciata++; 

save_data_work(); 

} It hdrii) ti 



It 1 / 

it getstartO I / 

It ti 

WORD 

getstartO 



NQRD i, pos; 
pcs = -i; 

for ( i = 0; i <= bi yst; i+* ) 

{ 

it( 'predsiu] ) 

r 

l 

Hi su:cst[i3 1= NULLPTR ) 
{ 

if( pos >= 0 ) 

( 

pcs = -2; 
goto lab??: 

i 

else 

pos = i; 

\ 

) 

iab?9: return (pos) ; 

} It getstartO tl 
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ft ti 

it DD_C0tfputeO 1/ 

ft : tf 

VOID 

da_co*putei) 



DEATHREC Id; 
statetypes ds, startscate; 

BOOlEAM pwarn; 

BYTE nu*_str[5], lprobstrE323,uprofestri3Z3; 

BYTE ubfailstr[323, lbf flilstrC323; 

double lb, ub, del; 

BYTE Itestptr; 

aos_print-f Cdojroapute has been entered”); 

set_ciip (TfiUE,&data_work) ; 

vst ^height (data_hnrfl , char _f i rs, ligl _wchar , Icgl _hchar , 
&qi_wchar,gl_hchar) ; 

ydata+t; 

startstate = 1; 
pathcount = 0; 
rate_big = FALSE; 
cnttrunc = 0 ; 
cr.tprune = 0 ; 
lb = 1 . 0 ; 
ub = 1 . 0 ; 
del = 0 . 0 ; 

switch (LIST) { 

case (1); break; it NOTHING i 
case (2;: hdr20; break; 
case ( 3 ;: h d r 3 ( > ; break; 

} it case if 

testotr = OL ; 

1 tea i i LONG) test pt r, nuir. Btr ) ; 
dos^printf (nuic_str) ; 

1 tea ' (LONG W death , nuSt str j ; 
dos_printr (nuR^str) ; 
ltoe ' (LOwS) KUl[pTR ? niiK_5tr ) ; 
dos_printf lnu*_5tr) ; 

ft whiie( fdeath != NULLPTR i 1/ ft Cleanup fro® previous runs 1/ 
ft C 

d - tdeatn; 

fdeath = fdeath->next; 

dos^printf ("The pointer for d , DEATREC, to be freed follows" I; 
i t oa ( ( LONG ) d , n u« _str ) ; 
dos_printf (nuffist r ) ; 
free(d) ; 

} 1 / 

f death = NUlLPTR; 
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tr averse (start state, NULL, NULL, lb,ub, del ) ; 

d - f death; 

Ibfail = 0.0; 
ubfail = 0.0; 
it ( LIST >= 3 ) 
hdr2() ; 

while ( d I- NULLPTR ) 

r 

if( LIST >= 2 ) 

{ 

itoa (d->5t,nufft str) ; 

vjtext (data^hndl , dat a_wor k . g_x +5, datawor k . g_y +y data! 8, 
nuB_str ) ; 

f ota ( (d->l prob) , Iprobstr) ; 

v_gtext (data_hndl , data_wDrk.g_x+50,data_wark.g_y+ydatat8, 
Iprobstr); 

fota((d->uprob),uprobstr) ; 

vjjtext (data_hndl , data^wor k . 158, dat a_wor k • g_y + ydat aiB ? 
uprobstr > ; 

ydats++; 

if( et_bad ) 

{ 

v_qtext (data_hndl , data_wcrk . g_x+5, data_work . g_y+ydatatB, 
n ..~E(T) INACCURATE "i ; 
ydata J -+; 

T 

J 

et_bad = FALSE; 

} 

Ib ; di! = Ibfail + d->lprob; 
ubfail = ubfail + d->uprob; 
d = b->next; 

} 

pwarr. = ubfail < PRUNE tcntprunet (power (10, WARNDI5U ; 

switch (LIST; { 
case U); 

vjjtext (data Jindl , data j*ork.g_x+5,dataj<ork.g_y+yriata*S, 

“ CASE 1 SELECTED 
ydata++; break; 
case (2): 
case (3): 

vjjtext (data_hndl ,data_work.g_x+5,data j*ork.g_y+ydataiB, 
“TOTAL 1 * ) : 

tota(lbfail,lbfail5tr); 

vjtext (datajindl ,data_Kork.g_x*80,data_wDrfc.g_y*ydatatB, 
lbfailstr) ; 

fota(ubfail,uhfailstr); 
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v_gtext(data_hndl ,data_work.g_x+l 5B,data_work.g_y+ydatatB, 
ubfailstr) ; 
ydata++; break; 

) It End of Case tl 
it ( LIST > 0 !• 

{ 

iff rec_slow ) 

r 

\ 

v gtext (data_hndl ,data_work.g_x+j,data_work.g_y+ydata*8, 

" .."RECOVERY TOO SLOW •)) 
ydat a++; 

•i 

/ 

if ( rate_big ) 

{ 

v_gtext (data_hndl ,data_work.g_x+5,data_work.g_y+Ydata<6, 
u . . ~RATE TOO FAST fl ); 
ydata+ + ; 

if ( std_big ) 

( 

v_gtext (data_hndl ,data_wDrk.g_x*5,data_work.g_y+ydata*8, 
s .."ST. DEV TOG BIS 
ydata++; 

} 

iff bigst < 0 ) 

{ 

v_gtext (data_hndl ,data_work.g_x+j, data_work.g_y+ydatdtS, 
fl ..’O STATES IN H0DEL n ); 
ydata++; 

} 

if ( pwarn ) 

( 

v_gtext (data_hndl , data_work.q_x+5, riata_work.g_y+ydatafE, 

B . . "PRUNING TOO SEVERE 8 ); 
ydat a++ ; 

} 

> 

else 

erun = TRUE; 
rec_sloh = FALSE; 
rate_big = FALSE; 
std.big = FALSE; 

set_cl ip (TRUE, lrdata_worfe*> ; 

vst_height (data_hndl ,char_f ine,&gl_wchar ,&gl_hchar, 
&q!_wchar,gl_hchar) ; 

dos_printf ("do_coffipute has been exited") ; 

} It do cospateO 1/ 
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it 1/ 

It execstatsO ti 

it -$/ 

VOID 

execstats 0 
{ 



BYTE numstr [53 ; 

D05_printT i'-’execstats has been entered D > ; 



HI LIST > 0 ) 

{ 

itoa (pathcount,nus_str) ; 

v_gtext (oata_hndl,data_«ork.g_x+j,data_wark.g_y+ydata*S, 
nuffi^str); 

v_gtext (data_hndl , data_work . g_x+83, dat a_wor k . g_y+ydat a$B ? 

~ “PATH ( B ) PROCESSED 6 )’; 
ydata++; 

if( cnttrunc > 0 ) 

( 

itoa(cnttranc,nui_str) ; 

v_gt ext (data_hndl ,data_»<orK. y_x+5, dat a_wor k . Q_y^ydat atB, 
nus_str); 

v_gtext (data_hndl,data_work.Q_x+B3,data_wDrk.g_y+ydatat3 5 
"LOOP (5) TRUNCATED');” 

ydata+t; 

/ 

if( cntprune > 0 ) 

r 

\ 

itoa (cntprune, num^str); 

v_gtext (data_hndi ,datd_work.Q_x+j,rfata_work.g_y*yriatatS, 
nuft_str) : 

vjtext (data_hndl jdata_work.g j+B3,data_work.g_y+ydatat8, 
“LOOP'S) PRUNED'); 

ydata 4 -*; 

} 

i 

j 

save_data_work(); 

dos_printT (“execstats has been exited 6 ); 

} It execstatO if 
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ABSTRACT 



This thesis describes the porting of a NASA developed 
Markov reliability analysis tool to a relatively inexpensive 
IBM-AT. Currently the Markov analysis tool, called SURE, is 
not widely utilized because it runs in an expensive 
environment consisting of a VAX, megatex display, and 
template graphics software. Although substantial savings can 
be made by running SURE without the expensive graphics, the 
user friendliness of the tool is dramatically degraded by 
the lack of graphics. Accordingly a C program using the 
inexpensive GEM graphics environment has been written. The 
program is user friendly; it uses menus for option 
selections and prompts for data entry. 
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